Tüm klasörü kopyalama

[Sa.NaL]

Merhabalar,

Arkadaşlar ben aşağıdaki kodlar ile excel kitaplarını farklı bir yere kopyalama işlemini yapıyorum.İstediğim sadece excel uzantılı dosyaları değil o klasörü tümden kopyalamak çünkü içinde başka uzantıda dosyalar ve normal iç içe yeni klasörlerde var. Bunun için kodları nasıl değiştirmek gerekir.Değerli Bilgileriniz için şimdiden teşekkür ederim.

Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "\\Var-pc\YAPILAN İŞLER\*.xls", "\\Var-pc\Paylaşılan Dosyalarım\İŞLER\"

 

[hamitcan]

sub klasor ()
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\YeniKlasor", "C:\EskiKlasor", OverWriteFiles
End Sub

şeklinde deneyin.

 

[Sa.NaL]

58 nolu hatayı verdi dosya zaten yaşıyor gibi bir hata sanırım. Kodları aynen şöyle yaptım:

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "\\Varkut-pc\Paylaşılan Dosyalarım\İŞLER", "\\Varkut-pc\YAPILAN İŞLER", OverWriteFiles

not: ağdan kopyalama işlemi yapılmaktadır.