Datum abfragen
Horst
bei untenstehendem Makro wird das Erstellungsdatum einer .xls ausgelesen. Wenn dies nun dem Systemdatum entspricht soll eine MsgBox ausgegeben werden, sonst nicht. Irgendwie hinkt's an der Zeile
"If saveDate = Date$ Then" ... wie frage ich das Systemdatum korrekt ab?
Besten Dank vorab!
Sub Project()
Dim olapp As Object
Dim mybox As String
Dim objFSO As Object, objF As Object
Dim saveDate As Date
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.GetFile("C:\test.xls")
saveDate = objF.DateLastModified
Set objF = Nothing
Set objFSO = Nothing
If saveDate = Date$ Then
MsgBox "Alles ok!"
Else
End If
End Sub