Wirausaha mudah murah: Jacket Cyber

Kamis, 15 Desember 2011

Jacket Cyber | Official Sites

Cara Merubah Attribut File Menggunakan VBScript

Posted: 15 Dec 2011 05:00 AM PST

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.

Tidak ada komentar:

Posting Komentar