Dateien verschieben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
so?
Modul Modul1

Option Explicit 
 
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 
          Name SOURCE_PATH & strFile As 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", "") & " verschoben!", 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

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

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread