AW: Verzeichnis durchsuchen (etwas mehr erklärt)
04.08.2004 19:57:19
yogi
Wenn ich dich richtig verstehe, hast du ein Makro, das ein Übertragungsprogram startet. Dieses Programm sendet und empfängt Daten. Die empfangenen Daten werden auf dem Rechner in einer neuen Datei abgelegt. Wenn der Datentransfer abgeschlossen ist, soll ermittelt werden ob eine neue Datei angelegt wurde und um welche es sich handelt. Richtig? Falls dem so ist, versuchs mal mit
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
Gruss