Mit diesem Code möchte ich das Kopieren von Dateien protokollieren. Er macht das aber nur für die erste Datei! Wie was für eine Schleife muss ich um das Protokoll legen?
Habe das schon in einem anderen Forum gepostet! Vllt. hat hier ja jemand einen Tipp für mich?
Danke!
For Each fldr In fso.GetFolder(sPfad).subFolders
Call GetAndMoveFileA(fldr.Path)
Next fldr
'
For Each fil In fso.GetFolder(sPfad).Files
If Not rng.Find(what:=fil.Name, lookat:=xlWhole) Is Nothing Then
Call fso.copyfile(fil.Path, m_sZielpfad, True)
lZeile = 15
x = Range("A65536").End(xlUp).Row
Rows(x).Select
Worksheets("TEST").Range("A" & lZeile) = "Kopiert: " & fil.Path & " in " & m_sZielpfad
lAnzahlDateien = lAnzahlDateien + 1
lZeile = lZeile + 1
'Protokoll'
x = Range("A65536").End(xlUp).Row
Rows(x).Select
DoEvents
End If
Next
End Sub