使用API“SHFileOperation”来删除文件,一般的写法是:
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPublic Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40
'还有其他若干常数
Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Public SHFileOp As SHFILEOPSTRUCT
一个问题是,即使设置了:SHFileOp.fFlags = FOF_ALLOWUNDO
也仍然会直接删除文件,而不是到回收站。貌似不起作用。
解决方法:(来自网络)
回复于: 2002-07-05 14:23:47
您的这个问题是因为您在SHFILEOPSTRUCT结构中的pFrom参数中
给出的是目标文件的相对位置,这样即使您使用FOF_ALLOWUNDO标记,
您的文件也将被直接删除。要解决这个问题,
只需要在pFrom中给出文件的完整路径。
另外一个问题是,跳出来的对话框(询问用户是否要删除文件),不是模态的。用户不必关闭对话框,就可以点击窗体。这样可能造成错误。(在windows文件夹里面,如果删除一个文件,跳出来的对话框是模态的,必须响应,否则不能回到刚才的文件夹。)
解决方法:
从这个API本身的功能和参数来看,好像找不到办法。那么采用变通的方法。暂时冻结VB应用程序的窗体,响应对话框之后再激活窗体。这样,与模态的效果相同。不过,窗体在恢复时会闪一下。
Me.Enabled = False
SHFileOperation SHFileOp
Me.Enabled = True
第三个问题是,如何知道用户对于对话框选择了“是”还是“否”呢?无法从这个API的返回值来判断。
解决方法:
对话框响应之后,SHFileOp.fAborted的值就表示用户的选择。如果选择了是、删除,那么fAborted = False。如果选择了否、不删除,那么就是True。