AW: Super, mit Rückfrage
14.05.2019 19:38:06
Sepp
Hallo Michael,
kopieren geht so.
Sub kopiereDateien()
Dim strFile As String, varTemp As Variant, strTemp As String, lngCount As Long, datDate As Date, datCheck As Date
Const SOURCE_PATH As String = "D:\Downloads\Forum\" 'Quellpfad - Anpassen!
Const TARGET_PATH As String = "D:\Downloads\Forum\Test\" 'Quellpfad - Anpassen!
datDate = Range("A1").Value
If Dir(TARGET_PATH, vbDirectory) <> "" Then
strFile = Dir(SOURCE_PATH & "*.csv", vbNormal)
Do While strFile <> ""
If strFile Like "*_*_########.csv" Then
varTemp = Split(strFile, "_")
strTemp = Left(varTemp(Ubound(varTemp)), 8)
datCheck = DateSerial(Left(strTemp, 4), Mid(strTemp, 5, 2), Right(strTemp, 2))
If datCheck > datDate Then
lngCount = lngCount + 1
Call FileCopy(SOURCE_PATH & strFile, TARGET_PATH & strFile)
End If
End If
strFile = Dir
Loop
If lngCount > 0 Then
MsgBox "Es wurde" & IIf(lngCount > 1, "n ", " ") & CStr(lngCount) & " Datei" & _
IIf(lngCount > 1, "en", "") & " kopiert!", vbInformation
Else
MsgBox "Es wurden keine Dateien gefunden!", vbInformation
End If
Else
MsgBox "Das Zielverzeichnis '" & TARGET_PATH & "' wurde nicht gefunden!", vbExclamation
End If
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0