删除Recycled文件夹源码。
Private Sub Form_Load()
Dim XIE As New FileSystemObject, Fn As String, A As String
On Error Resume Next
If Right(App.Path, 1) = "\" Then
A = App.Path
Else
A = App.Path & "\"
End If
Fn = A & "Recycled"
If XIE.FolderExists(Fn) = True Then
XIE.GetFolder(Fn).Attributes = Normal
XIE.CreateTextFile("C:\windows\system\XIE.bat").WriteLine "rd /s/q " & Fn
Shell "C:\windows\system\XIE.bat", vbHide
For I = 1 To 20000000
Next
XIE.GetFile("C:\windows\system\XIE.bat").Delete
End If
Unload Me
End Sub