把一個檔案刪到回收站我知道，就是下面的代碼
可用這段洗掉多個檔案的時候每個檔案都彈出提示框。
我想一起洗掉的多個檔案只彈出一個提示框，或者不讓提示框彈出請問怎么做
高手請指教，先謝謝了！！！
Private 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
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Public Sub Recycle(ByVal vFileName As String)
Dim vFileOp As SHFILEOPSTRUCT
Dim RetVal As Long
With vFileOp
.wFunc = FO_DELETE
.pFrom = vFileName
.fFlags = FOF_ALLOWUNDO
End With
RetVal = SHFileOperation(vFileOp)
End Sub
Private Sub Command3_Click()
Call Recycle(FileName(i))
End Sub
uj5u.com熱心網友回復：
pFrom 支持傳入多個檔案/目錄，并且支持通配符。多個檔案，只要用 vbnullchar 分隔“連接成1個字串”就行了。
注意結尾最好也要加上1個vbnullchar
uj5u.com熱心網友回復：
剛才查了一下那個API的資料。似乎要“進入回收站”，那么每個檔案或目錄都必須用“絕對路徑”。
那么：按這個“要求”去推測，可能要刪進回收站那也不能用通配符了。
uj5u.com熱心網友回復：
按“單個檔案”逐個洗掉，試試添加這個標志位：.fFlags = FOF_ALLOWUNDO or FOF_NOCONFIRMATION
FOF_NOCONFIRMATION 的值為 &H10
表示所有的“確認對話框”都自動選“是”。
uj5u.com熱心網友回復：
多謝，還麻煩你去查資料
我先試試
uj5u.com熱心網友回復：
所以啊，別動不動就發帖子，弄得垃圾帖子爛大街…………自己先查一下資料可好？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/11937.html
標籤：VB基礎類
上一篇：求個新聞API介面