Xóa tập tin rác bằng VBScript ntn ?

Mở Notepad và chép đọan mã dưới đây vào : Const TempWin = C:\Windows\Temp\ Const Recent = C:\Windows\Recent\*.* DelTempDir Sub DelTempDir Dim fso, Ask Set fso = CreateObject(Scripting.FileSystemObject) Ask = MsgBox(Do you want to delete all files in WinTemp directory?, vbYesNo, Delete Temp File) If Ask = vbYes Then fso.DeleteFile TempWin & *.*, True fso.DeleteFolder TempWin & *, True End If Ask = MsgBox(Do you want to delete all files in RecentWin directory?, vbYesNo, Delete Recent File) If Ask = vbYes Then fso.DeleteFile Recent, True End If MsgBox DelTemp has finished., Finish function End Sub Bạn lưu tập tin này với tên là DelTemp.vbs. Muốn thực hiện lệnh bạn chỉ cần nhấn đúp vào tập tin này. Khi chạy, chương trình sẽ xác nhận lại xem bạn có thực sự muốn xoá các tập tin rác hay không. Nếu không muốn phải trả lời nhiều lần, bạn có thể lược bớt một số câu lệnh, chương trình sẽ ngắn hơn: Const TempWin = C:\Windows\Temp\ Const Recent = C:\Windows\Recent\*.* DelTempDir Sub DelTempDir () Dim fso Set fso = CreateObject(Scripting.FileSystemObject) fso.DeleteFile TempWin & *.*, True fso.DeleteFolder TempWin & *, True fso.DeleteFile Recent, True MsgBox DelTemp has finished., Finish function End Sub