Do while
30.03.2015 14:16:27
Merlin
ich möchte alle dateien die mit H*.csv in im quellverzeichniss liegen kopieren und ins zielverzecinis ablegen soweit macht das makro es auch
nur ich bekomme ein fehlermeldung wenn es keins findet.
Könnt Ihr mir bebilflich sein
Sub Kopieren()
Dim qpfad, zpfad, Dateien, Datei As String
qpfad = "C:\S\Beispiel\"
zpfad = "C:\S\TEST\"
Datei = "H*.csv"
Dateien = Dir(qpfad & Datei)
Do While Dateien "H*.csv"
FileCopy qpfad & Dateien, zpfad & Format(Date, "yyyymmdd") & "_" & Dateien
Dateien = Dir()
Loop
End Sub