如何将文件放入回收站?

liangwu 2004-07-22 01:53:57
如题
...全文
144 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2004-07-22
  • 打赏
  • 举报
回复
'add a filelist to form1
Option Explicit
Private 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 '文件操作函数类型参数

Private Const FO_DELETE = &H3 '本参数代表删除
Private Const FOF_ALLOWUNDO = &H40 '本参数表示将文件放入回收站

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Sub ShellDeleteOne(sFile As String, ActionFlag As Long) '自定义文件删除操作函数ShellDeleteOne,第一个参数指定被删除的文件名,第二个参数指定是否放入回收站

Dim SHFileOp As SHFILEOPSTRUCT
Dim r As Long

sFile = sFile & Chr$(0)

With SHFileOp

.wFunc = FO_DELETE

.pFrom = sFile

.fFlags = ActionFlag '如果ActionFlag=0表示绝对删除,而ActionFlag=FOF_ALLOWUNDO表示放入回收站
End With

r = SHFileOperation(SHFileOp) '执行删除操作
End Sub
Private Sub File1_Click()
Dim myfile As String
myfile = App.Path & "\" & File1.FileName
ShellDeleteOne myfile, FOF_ALLOWUNDO
File1.Refresh
End Sub

Private Sub Form_Load()
File1.Path = App.Path
End Sub

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧