发表评论(0)作者：, 平台：, 阅读：12055, 日期：2000-03-12

　


如何将文件删除到回收站



VB提供的Kill语句将文件直接彻底删除，而不是放到回收站中。

那么，如何将文件删除到回收站中呢？

下面就是答案：


Option Explicit

Public Type SHFILEOPSTRUCT

hWnd As Long

wFunc As Long

pFrom As String

pTo As String

fFlags As Integer

fAnyOperationsAborted As Boolean

hNameMappings As Long

lpszProgressTitle As String

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


Public Sub Recycle(ByVal FileName As String)

Dim SHFileOp As SHFILEOPSTRUCT

Dim RetVal As Long

With SHFileOp

.wFunc = FO_DELETE

.pFrom = FileName

.fFlags = FOF_ALLOWUNDO

End With

'Send this poor soul to file hell

RetVal = SHFileOperation(SHFileOp)

End Sub

如果你想删除文件"A.*"，只需调用Recyle "A.*"即可