Erstellungsdatum einer ext. Datei auslesen
30.01.2004 06:55:57
NISCH
ich habe folgendes Anliegen:
Kann man mit einem Code, das Erstellungsdatum einer externen Datei auslesen?
(Text-Datei)
Hintergrund: Ich habe den unten aufgeführten Makro, der nach einer .prn Datei (so eine Art Textdatei) sucht. Ich möchte erreichen, dass dieser Makro prüft, ob die Datei von heute ist. ...wenn nicht soll er eine Fehler -MSGBox öffnen.
Hat da jemand eine Idee?
Würde mich über einen Tip sehr freuen.
Viele Grüße aus D´dorf
NISCH
Sub Openlista()
Dim OK As Byte
With Application.FileSearch
.NewSearch
.Filename = "a.prn"
.LookIn = "c:/aaa/"
.SearchSubFolders = False
.Execute
If .FoundFiles.Count <> 0 Then
Call openlist2a
Else
MsgBox "PRN-File not found" & Chr(13) & Chr(13) & "Please review your settings (see worksheet >>Instructions<<)"
End If
End With
End Sub