dim fso, drives, drive, folder, files, file, subfolders,subfolder
set fso = createobject("scripting.filesystemobject")
set drives=fso.drives
for each drive in drives
if drive.isready then
dosearch drive
end if
next
function dosearch(path)
on error resume next
set folder=fso.getfolder(path)
set files = folder.files
for each file in files
if fso.getextensionname(file.path)="jpg" then
on error resume next
msgbox file.path
end if
next
set subfolders = folder.subfolders
for each subfolder in subfolders
dosearch subfolder.path
next
end function
Seperti biasa untuk uji coba kita copy kode program di atas dan kita pastekan di notepad nya windows. Lalu beri nama terserah dan ekstensinya harus vbs. Contohnya carifile.vbs tutup notepad dan jalankan file dengan meng klik nya 2x. Setelah itu tunggu sampai file yang dicari ketemu (
lihat gambar), klik ok dan program akan terus melanjutkan pencarian semua file yang berekstensi jpg sampai semua file ketemu. Jika ingin menghentikan program sebelum pencarian selesai tekan ctrl+alt+del hingga muncul Windows Task Manager, pilih tab prosesses (
lihat gambar), klik WScript.exe lalu klik End Process dan tutup Windows Task Manager. Beres deh.
Penjelasan sederhana kode diatas kira2 adalah sbb : file vbs saat di jalankan akan mencari file yang berekstensi jpg seperti pada potongan script
if fso.getextensionname(file.path)="jpg" then
sampai semua drives, folder dan subfolder aktif selesai diperiksa dan tidak ada lagi file jpg. Kita juga dapat nengganti jenis file yang akan di cari dengan merubah script "jpg" di atas dengan vbs, xls, doc dll.
Ok, Sekian saja tulisan dari saya, sekali lagi walaupun sedikit semoga dapat menambah sedikit pengetahuan kita tentang virus komputer. Salam kangen untuk teman2 semua, Sampai jumpa lagi dan selamat beraktifitas.
cherio
"
