Alt Klasör İçeriğini Kopyalamak

  • Konuyu başlatan Konuyu başlatan ozuberk
  • Başlangıç tarihi Başlangıç tarihi
Tarihe göre sırala Oylamaya göre sırala
@ozuberk

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

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(15 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Ömer BARAN' Alıntı:
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
Genişletmek için tıklayın ...
Ömer bey elinize sağlık tam istediğim gibi olmuş.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt