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 :
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")
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.
0 komentar:
Posting Komentar