其中有幾個選項如下：
1、不要將文件移到資源回收站，刪除時立即移除文件。
2、顯示刪除確認對話框？
根據以上之狀況，文件之刪除有三種情形：
1、刪除文件，出現確認對話框，文件移到資源回收站。
2、刪除文件，出現確認對話框，文件不移到資源回收站。
3、刪除文件，不出現確認對話框，文件也不移到資源回收站。
模擬程序如下：
′在模組的聲明區中加入以下聲明：
Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
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 Const FOF_NOCONFIRMATION = &H10 ′不出現確認對話框
Public Const FOF_SILENT = &H4
′在程序中之使用方法如下：
′以下之例子會出現確認對話框，文件也會移到資源回收站。 Private Sub Command1_Click()
Dim SHop As SHFILEOPSTRUCT
Dim strFile As String ′要刪除的文件(含全路徑)
strFile = "c:\test.txt"
With SHop
.wFunc = FO_DELETE
.pFrom = strFile
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation SHop
End Sub
′若要調整，只要更改 fFlags 之值即可，如下：
.fFlags = FOF_SILENT ′刪除文件，出現確認對話框，文件不移到資源回收站。
.fFlags = FOF_NOCONFIRMATION ′刪除文件，不出現確認對話框，文件也不移到資源回收站。
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/
