Outsider77
Erfahrenes Mitglied
Hallo!
Ich möchte das Erstell-Datum einer Datei auslesen.
Dazu soll in einem bestimmten Pfad im Netzwerk nach einer spezifischen Datei gesucht werden.
Es besteht nur folgendes Problem: wenn die gesuchte Datei nicht vorhanden / zu finden ist, hätte ich gerne eine Message-Box mit der Meldung, "Datei noch nicht vorhanden".
Wie kann ich das lösen?
Vielen Dank schon mal
Gruß Outi
Ich möchte das Erstell-Datum einer Datei auslesen.
Dazu soll in einem bestimmten Pfad im Netzwerk nach einer spezifischen Datei gesucht werden.
Code:
Sub Datei_Informationen()
Dim d As String
artikelname = Range("AO1")
If Range("C2") = "" Then Range("AG8") = "": End
d = FileDateTime("F:\slm09s\" + artikelname + "s-slm.sem")
e = Left(d, 10)
Range("AG8") = e
End Sub
Wie kann ich das lösen?
Vielen Dank schon mal
Gruß Outi