Alt Klasör İçeriğini Kopyalamak

[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?

 

sütunda veri var ise listboxa almasın

Run Time Error 13 Type Mismatch

[Ömer BARAN]

@ozuberk

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

Görüntülemek için giriş yapmanız gerekmektedir.
(15 satır)

 

[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ş.