Cara Merubah Attribut File Menggunakan VBScript

Cara Merubah Attribut File Menggunakan VBScript

Cara Merubah Attribut File Menggunakan VBScriptCara 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 File Menggunakan VBScript.

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 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  ini,semoga dengan adanya artikel sederhana ini teman – teman jadi lebih paham mengenai bagaimana .

KASIH RATE YUK!
4 5
Oleh


Leave a Reply

Your email address will not be published. Required fields are marked *