Alt Klasörlerdeki Dosyaları Başka Klasöre Kopyalama

[ozuberk]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba Arkadaşlar,

"C:\Deneme 1" klasöründe yer alan alt klasör içeriğindeki dosya uzantılarını "C:\Deneme 2" dosyasına kopyalamak istiyorum.

Yardımcı olabilir misiniz?

 

[Ömer BARAN]

@ozuberk

Koddaki kaynak = "...." ve hedef = "...." kısımlarını kendinize göre düzenlersiniz (sondaki KESME işaretlerine dikkat)

Bu kodu görmek için giriş yapmanız gerekmektedir (15 satır). Giriş Yap

 

[ozuberk]

Sub DOSYALARI_KOPYALA() Dim kaynak As String, hedef As String Set brn = CreateObject("Scripting.FileSystemObject") kaynak = "C:\Users\PC\Downloads\xxxxxx\" hedef = "C:\Users\PC\Downloads\" Set kls = brn.GetFolder(kaynak) For Each XD_belge In kls.Files: brn.CopyFile XD_belge, hedef: Next For Each altkls In kls.SubFolders For Each XD_belge In altkls.Files: brn.CopyFile XD_belge, hedef: Next Next MsgBox "BİTTİ" End Sub

Ömer bey elinize sağlık tam istediğim gibi olmuş.