XTRenamer.vbs Program Kecil Pengubah Ekstensi File

XTRenamer.vbs
Program Kecil Pengubah Ekstensi File

XTRenamer.vbs merupakan program kecil untuk merubah format ekstensi file, singkatnya yaitu merename semua ekstensi file-file penting sekaligus dalam sebuah Drive dengan sekali click. Disini saya menggunakan bantuan script VBS untuk penerapannya.VBScript atau lengkapnya Visual Basic Scripting Edition adalah sebuah bahasa skrip yang diinterpretasikan saat dieksekusi yang dikembangkan oleh Microsoft Corporation pada tahun 1996.
VBScript merupakan sebuah bahasa skrip turunan dari bahasa pemrograman Visual Basic for Applications (VBA) yang digunakan di dalam Microsoft Office dan beberapa platform pengembangan buatan Microsoft lainnya. VBScript menghilangkan beberapa fungsi dari VBA,seperti halnya fungsi I/O berkas dan akses langsung terhadap sistem operasi. VBScript dapat dijalankan di atas Windows 9x/ME, Windows 2000, Windows XP, Windows Server 2003, Windows Vista, Windows Server 2008 serta beberapa platform UNIX.

Berikut Langkah-langkahnya:
 Start > Accessories > Notepad
 Atau pada Start > Run, Pada jendela Run ketikkan notepad.exe lalu Enter
 Setelah itu ketik atau Copy Scriptnya sebagi berikut :
Script Program :
Dim Drive, Root, fname
Drive = "D" '(drive yg akan diproses)
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.doc$" ('ekstensi file yang akan direname)
.IgnoreCase = True
.Global = False
.Multiline = False
End With
Call Rename(Root, fname)
Sub Rename(Folder, RegExp)
Dim SubFolder, File
For Each File in Folder.Files
If RegExp.Test(File.Name) Then
File.Name = RegExp.Replace(File.Name, ".MSWord")
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub
 SaveAs di folder mana-saja dengan filename: XTRenamer.vbs , click pada kolom“Save as type” dan ganti “Text Document (*.txt)” menjadi “All Files” lalu clicktombol “Save”.
 Eksekusi file XTRenamer.vbs yang telah anda buat tadi untuk mengubah semua file yang ber-ekstensi *.doc menjadi *.MSWord di Drive D:\ *Jika terjadi error pada script tapi anda yakin nggak salah ketik, perhatikan dan pahami script anda terutama pada: HIGHLIGHT (Drive target, dan jenis ekstensinya cocok/ada nggak di komputer situ, atau cek file-file anda ada perubahan nggak? mudah.

Tunggu beberapa saat hingga proses perenamannya selesai. Lama proses ditentukan oleh kecepatan komputer dan banyaknya file. Biasanya pada komputer rumahan murahan nggak akan memakan waktu lebih dari 10 detik. Untuk lebih pastinya buka Task manager (ctrl+alt+del) > tab “Processes” Apabila dalam daftar “Image-Name” masih terdapat “wscript.exe” berarti prosesnya masih belum selesai. Setelah proses pe-renamannya selesai maka kita harus meng-assosiasikan ekstensi file baru tersebut agar bisa di buka di aplikasi yang dikehendaki, agar bisa dibuka dengan langkah sebagai berikut :
 Buka Windows Explorer > Tools > Folder Options > File Types.
 Click tombol “New” lalu pada kolom “File Type Extensions” ketik MS word atau Extensions lain yang sudah anda rubah tadi.
 Klik tombol “<
 Ganti gambar icon defaultnya agar tidak mudah tertipu dengan filevirus yang sering ber-icon menyerupai File Word. (Optional)
 Click OK dan selesai sudah……?

Selamat Mencoba…………….?