Cara Merubah Attribut File Menggunakan VBScript – Sepertinya sudah lama saya tidak menuliskan sebuah tutorial programming pada blog sederhana saya ini.Setelah terakhir kali saya menuliskan tutorial sederhana mengenai Pengertian Dasar Object Oriented Programming pada kesempatan kali ini saya ingin membagikan sedikit tutorial mengenai Cara Merubah Attribut File Menggunakan VBScript.
Merubah Attribut File ini sebenarnya bisa saja kita langsung menggunakan perintah dari command prompt seperti attrib –s –a –h *.* pada direktori,tetapi teman – teman pasti banyak yang belum mengetahui bagaimana caranya.Jika belum mengetahui mengenai command prompt teman – teman bisa membaca pada artikel saya sebelumnya mengenai Perintah Dasar Command Prompt.
Baiklah,daripada berpanjang lebar mari kita lihat bagaimana sebenarnya Cara Merubah Attribut File Menggunakan VBScript ini.
Merubah Attribut File Menggunakan VBS
Untuk Merubah Attribut File ini teman – teman bisa langsung mencoba script yang saya berikan berikut ini,berikut ini adalah langkahnya :
- Buka Notepad teman – teman.
- Copy Paste script berikut ini :
on error resume next
dim fso, DName, fdrive
Set fso = CreateObject("Scripting.FileSystemObject")
DName=inputbox("Masukkan drive yang berisi file-file kehidden (Contoh:D)")
Set fdrive = CreateObject("Scripting.FileSystemObject"). _
GetDrive(DName).RootFolder
call cek(fdrive)
sub cek(folder)
dim x, file, subfolder
for each file in folder.files
set x = fso.GetFile(file.path)
if x.attributes=34 then
x.attributes = x.attributes - 2
elseif x.attributes=38 then
x.attributes = x.attributes - 6
elseif x.attributes=6 then
x.attributes = x.attributes + 26
end if
next
for each subfolder in folder.subfolders
call cek(subfolder)
next
end sub- Simpan Code tersebut dengan nama file terserah teman – teman saja,misal AttributFile.vbs
- Setelah disimpan,silahkan jalankan file tersebut.
- Akan muncul sebuah inputbox untuk memasukan drive mana yang akan dirubah attribut filenya.
Selesai sudah sebuah script sederhana untuk Merubah Attribut File ini.Sekian dulu informasi sederhana saya mengenai Cara Merubah Attribut File Menggunakan VBScript ini,semoga dengan adanya artikel sederhana ini teman – teman jadi lebih paham mengenai bagaimana Cara Merubah Attribut File Menggunakan VBScript.