Berikut ini script untuk menghapus seluruh isi My Recent Document, yang dapat kita buat menggunakan notepad:
1. Buka program notepad. Kemudian copy kode berikut ini:
Set WshShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") sRD = WshShell.SpecialFolders("Recent") if sRD <> "" then On Error Resume Next objFSO.DeleteFile(sRD & "\*.lnk") end if |
3.Simpan kemudian keluar. Selanjutnya ganti nama ekstensi filenya menjadi .vbs, (sebagai contoh New Text Document.txt menjadi Clear Recent Documents.vbs)
Anda dapat menyimpan file ini pada quick launch untuk memudakan prosesnya.
1 comments:
terimakasih Script untuk Menghapus My Recent Document
Post a Comment