Gibt es einen Befehl, mit dem ich nur Dateien lade (suche und in ein Blatt speichere) ab einem bestimmten Anlagedatum/Änderungsdatum? Sonst müsste ich jedes Mal das komplette Verzeichnis wieder auslesen.
Vielen Dank im Voraus.
Stefan
FDate=FileDateTime (Verzeichnis & FileName)
ermittelt und dann musst Du
Fdate > CDate(Tabelle1.Range("...").Value)
vergleichen und dann laden oder next.For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
Set objDateiEigenschaft = objFileSystem.GetFile(objDatei)
If CDate(objDateiEigenschaft.DateCreated) > CDate(Systendatum) Then
ActiveSheet.Cells(L, 1) = objDatei.Name
ActiveSheet.Cells(L, 2) = objDateiEigenschaft.DateCreated
Code:
[Cc]
Sub Test()
Dim strRootPath As String
Dim lngZeile As Long
Dim ObjDatei As Object
strRootPath = "D:\Pictures"
lngZeile = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
With CreateObject("scripting.FileSystemObject").GetFolder(strRootPath)
For Each ObjDatei In .Files
If Not ObjDatei Is Nothing Then
If FileDateTime(ObjDatei.Path) > CDate(Range("A1").Value) Then
ActiveSheet.Cells(lngZeile, 1) = ObjDatei.Name 'ObjDatei.Path
lngZeile = lngZeile + 1
End If
End If
Next ObjDatei
End With
End Sub