Babblemint

hari ini saya mau berbagai dengan teman-teman sekalian tentang bagaimana cara merubah nama file di komputer atau di laptop, dengan cara ini kita bisa merubah nama file dalam satu folder sekaligus, karena malas juga kalau kita rename satu persatu membutuhkan waktu yang tidak sebentar dan bisa bikin tangan kita pegal juga, Perhatikan baik-baik hahahaha . . .

pertama kita buka Software Notepad terlebih dahulu kemudian copy script berikut dan save dengan format .VBS (perhatikan gambar dibawah)

Set objFso = CreateObject("Scripting.FileSystemObject")
Set Folder = objFSO.GetFolder("FOLDER LOKASI FILE")
For Each File In Folder.Files
    sNewFile = File.Name
    sNewFile = Replace(sNewFile,"KATA YANG AKAN DIGANTI","KATA PENGGANTI")
    if (sNewFile<>File.Name) then
        File.Move(File.ParentFolder+"\"+sNewFile)
    end if
Next

File ini bisa kita simpan dimana saja, tidak perlu satu folder dengan file yang nama filenya akan diganti, Terus bagaimana cara kerjanya? caranya gampang sekali, file yang tadi kita save tinggal di klik 2x, tidak ada tampilan apa-apa setelah di klik 2x tapi coba cek nama file yang diganti tadi di folder, agan pasti seneng karena nama file sudah terganti semua, nah begitulah bagaimana cara Merubah nama file sekaligus yang bisa saya share mungkin di beberapa blog sudah membahasnya terlebih dahulu dengan trik yang berbeda.

kalau belum jelas berikut contohnya :

Set objFso = CreateObject("Scripting.FileSystemObject")

Set Folder = objFSO.GetFolder("C:\Users\User\Videos\MP3\POP CAMPUR")

For Each File In Folder.Files

    sNewFile = File.Name

    sNewFile = Replace(sNewFile,"Karaoke tanpa vokal","Karaoke")

    if (sNewFile<>File.Name) then

        File.Move(File.ParentFolder+"\"+sNewFile)

    end if

Next