VB编程技巧：移动文件到回收站

时　间:2008-05-21 08:52:57
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:VB编程技巧：移动文件到回收站
正　文:

移动文件到回收站

声明:

Public Type SHFILEOPSTRUCT

hwnd As Long

wFunc As Long

pFrom As String

pTo As String

fFlags As Integer

fAnyOperationsAborted As Long

hNameMappings As Long

lpszProgressTitle As Long

End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Const FO_Delete = &H3

Public Const FOF_ALLOWUNDO = &H40

代码:

Dim SHop As SHFILEOPSTRUCT

Dim strFile As String

With SHop

.wFunc = FO_Delete

.pFrom = strFile + Chr(0)

.fFlags = FOF_ALLOWUNDO

End With


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店