RENAME FILE DENGAN VISUAL BASIC

Tutorial postingan kali ini ntah berguna untuk apa tapi pasti ada manfaatnya, contohnya nih kita punya file exe yang harus kita sembunyikan keberadaanya, terutama pada pembuatan project visual basic, istilah kata jangan sampe ada yang tau kalo ada file tersebut. Filenya ya bias berguna untuk memantau user atau apalah, sebut saja file vb2005.ocx yang sebenarnya itu file vb2005.exe, kalo disatuin sama file-fle project VB yang juga banyak OCXnya, mana curgation tuh orang. Ngga banyak teori langsung aja ke buka VB, klik standard exe, pada form tambahkan satu commandbutton. Caption= Rename (bebas deh) lihat gambar:

Lalu ketikan sintax di bawah ini:

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type
Const FO_RENAME = &H4
Sub RenameFile()
Dim TitleFile
Dim PathFile
TitleFile = "Lama"
PathFile = App.Path & "\contoh.ocx" 'file dan path setelah direname jadi seperti ini
Dim SHDirOp As SHFILEOPSTRUCT
    With SHDirOp
        .wFunc = FO_RENAME
        .pFrom = App.Path & "\contoh.txt" 'ini path dan nama file sebelum direname. file asli
        .pTo = App.Path & "\contoh.ocx"  'path dan nama file sesudah di rename
    End With
SHFileOperation SHDirOp
MsgBox "Rename berhasil dilakukan", vbInformation, "Berhasil"
End Sub
Private Sub Command1_Click()
RenameFile
End Sub

Abis itu jangan dijalankan dulu.. sabar dikit, buru buru pengen mencet F5 aje :P, lalu save ke dalam sebuah folder contohnya di D:\renameVB\prorename.vbp , lalu buka tuh notepad tekan windows +R, lalu ketik notepad, ngetik apa aja terserah, lalu simpan dengan nama contoh di folder yang sama D:\renameVB\contoh.txt, setelah itu baru coba jalankan project yang tadi, lihat hasilnya di folder D:\RenameVB, yang tadinya contoh.txt jadi contoh.ocx, emm.. bisa juga diganti nama file nya loh, contohnya dari contoh.txt menjadi contoh500.txt atau ke lain extensi, terus rename ini juga bisa berganti lokasi contohnya masuk ke C:\windows\system32\contoh.exe, tapi pasti dianggap virus hehe.., hemm.. lumayan kan buat penyamaran file?? :P

Yang ngga mau repot-repot ngetik  di project atau Cuma copy paste sintax aja udah males dan pengen langsung jadi boleh download disini.

selesai deh.. sampe ketemu dipostingan berikutnya