Merubah extension File (Masking)

Kali ini kita akan mencoba menyembunyikan exstension file dengan merubah extension tersebut menjadi extension lainnya. Contoh : file.jpg akan kita rubah semua yg mempunyai format *.jpg menjadi nama kita, misalnya *.tommy

Kelebihannya File ini bisa berjalan dengan normalhanya di komputer kita saja, dan jika orang lain meng-Copy file ita maka file tersebut tidak akan bisa dibuka dan harus meRename.

Hal ini bertujuan :

• Menyelamatkan file-file kita dari serangan virus komputer. Yg misalnya firus menyerang file dengan extension (*.doc), jika kita menggunakan ini dan kita rubahnya, maka file kita akan selamat.

Cara membuatnya :

1. tekan Ctrl + R
2. ketikkan “notepad”  –> ENTER
3. Masukkan Script ini :

————————————————————————————————

Dim Drive, Root, fname
Drive = “D” ‘drive yang akan diproses
Set Root = CreateObject(“Scripting.FileSystemObject”). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = “\.doc$”
.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,”.AFA“)
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub
————————————————————————————————

Keterangan pada script yg perlu dirubah:

.Pattern = “\.doc$” adalah exstension awal yang akan dirubah

File.Name = RegExp.Replace(File.Name,”.AFA“) adalah extension yang diinginkan (yang dicetak tebal).

4. Jika sudah, Save file tersebut dengan format (*.vbs)

5. Coba jalankan… 🙂

Selamat mencoba…

~Antommy Fachrizal Arrafi~