Ich will über Excel mittels VBA ein Verzeichnis auf neue Dateien durchsuchen, geht das, und wenn ja, wie?
mfg
Sebastian
Sub get_new_file()
Dim zeit_letzter_lauf, datum_datei As Date
Dim datei_namen, pfad As String
pfad = "C:\xx\yy\"
' hier wird das Datum und die Zeit der letzten Datei eingegeben
zeit_letzter_lauf = DateValue("04.08.2003") + TimeValue("12:20:21")
' wir holen uns die erste Datei im Ordner
datei_namen = Dir(pfad & "*.xyz")
Do Until datei_namen = ""
' jetzt holen wir die Zeit wann die Datei geändert wurde
datum_datei = FileDateTime(pfad & datei_namen)
' vergleich mit letztem Lauf
If datum_datei > zeit_letzter_lauf Then
' hurra, wir haben eine gefunden
' hier den link setzen
' geschafft, wir steigen aus
Exit Do
End If
' Datei war älter, holen die nächste
datei_namen = Dir
Loop
End Sub