Copy dan Rename File pada VB 6

          Pada postingan pertama ini saya ingin berbagi gimana cara memindahkan file sekaligus mengganti nama file tersebut ke folder lain. Caranya tidak susah  hanya memerlukan 4 baris script dan anda sudah bisa menjalankannya. Oke mari kita langkah-langkahnya :

Pertama:
Tambahkan sebuah object Referances yaitu Microsoft Scripting Runtime untuk caranya bisa lihat gambar berikut ini

 selanjutnya pilih Microsoft Scripting Runtime

Setelah object referances selesai ditambahkan ketikkan script berikut ke Form anda atau dimana anda akan menjalankan fungsi ini

           Dim ofsFilesSys As New FileSystemObject
           Dim ofsFile As File

                     Set ofsFile = ofsFilesSys.GetFile("D:\Laporan.xls")
                     ofsFile.Copy ("E\New Folder\Rekap Bulan Mei.xls")

File yang semula berada di drive D:\ dengan nama Laporan.xls akan berpindah ke drive E:\ dan langsung berganti nama menjadi Rekap Bulan Mei.xls , selamat mencoba.