coba script berikut ini:
Dim d As String, ext As Variant, x As Variant
Dim sAsal As String, sTuju As String, sFile As String
sAsal = "D:\Cek\"
sTuju = "D:\Cek2\"
ext = Array("*.xlsx", "*.xlsm")
For Each x In ext
d = Dir(sAsal & x)
Do While d <> ""
sFile = sAsal & d
FileCopy sFile, sTuju & d
Kill sFile
d = Dir
Loop
Next x
Salam,
-Miss Jan Raisin-
Pada 3 Desember 2013 11.43, <[email protected]> menulis:
> Salam Semua,
>
> Saya mau tanya bagaimana vba memindahkan semua file excel (xlsx, xlsm dll)
> dari folder d:\cek ke folder d:\cek2
>
> Terima kasih
> Best Regards,
>
> Powered by Telkomsel BlackBerry®
>
> ------------------------------------
>
