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