在VB中使用API“SHFileOperation”删除文件的三个问题

使用API“SHFileOperation”来删除文件，一般的写法是：

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

Public 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。