您現(xiàn)在將屏幕上所有的視窗全部縮小，找到資源回收站，按鼠標(biāo)右鍵，選擇【屬性】，便會出現(xiàn)【資源回收站】的屬性問話框。


其中有幾個選項如下：

1、不要將文件移到資源回收站，刪除時立即移除文件。
2、顯示刪除確認(rèn)對話框？

根據(jù)以上之狀況，文件之刪除有三種情形：

1、刪除文件，出現(xiàn)確認(rèn)對話框，文件移到資源回收站。
2、刪除文件，出現(xiàn)確認(rèn)對話框，文件不移到資源回收站。
3、刪除文件，不出現(xiàn)確認(rèn)對話框，文件也不移到資源回收站。

模擬程序如下：

′在模組的聲明區(qū)中加入以下聲明：

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 ′不出現(xiàn)確認(rèn)對話框
Public Const FOF_SILENT = &H4

′在程序中之使用方法如下：
′以下之例子會出現(xiàn)確認(rèn)對話框，文件也會移到資源回收站。 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

′若要調(diào)整，只要更改 fFlags 之值即可，如下：
.fFlags = FOF_SILENT ′刪除文件，出現(xiàn)確認(rèn)對話框，文件不移到資源回收站。
.fFlags = FOF_NOCONFIRMATION ′刪除文件，不出現(xiàn)確認(rèn)對話框，文件也不移到資源回收站。