PDA

Vollständige Version anzeigen : Datum wann ein Ordner erstellt wurde


batio7680
10.05.2004, 13:09
Hallo Forum,

hat noch jemand von euch eine Idee wie ich rausbekommen kann, wann ein Ordner ursprünglich erstellt wurde?

Mit dieser Methode

Debug.Print FileDateTime("C:\Test")

bekomme ich immer das Datum der letzten Änderung innerhalb des Ordners.

TommyK
10.05.2004, 13:15
Hallo,

mit folgender Funktion kannst Du das ermitteln.
Public Function DateiDatumAuslesen(Nam As String, Art As Integer)

' -----------------------------------------------------
' Funktion zum Auslesen von Datei-Datumswerten. Durch
' die "Art" können 3 Datumswete unterschieden werden:
' 1 = Datum der letzten Modifikation
' 2 = Datum des letzten Zugriffs
' 3 = Datum der Erstellung
' -----------------------------------------------------

Dim a, b

Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.GetFile(Nam)

Select Case Art
Case 1
DateiDatumAuslesen = b.DateLastModified
Case 2
DateiDatumAuslesen = b.DateLastAccessed
Case 3
DateiDatumAuslesen = b.DateCreated
End Select

End Function

Aufruf z.B.:
Debug.Print DateiDatumAuslesen("C:\DeineDatei",3)

batio7680
10.05.2004, 13:22
Hallo TommyK,

erstmal vielen Dank für deine Anregung, aber irgendwie geht das so glaub ich nicht, denn ich will es ja von einem Order wissen und nicht von einer Datei ...


So dass er immer Laufzeitfehler 53 ausspuckt - Datei nicht gefunden ...

batio7680
10.05.2004, 13:30
Ja etwas nachdenken hat mir auch noch nicht geschadet, darum hab ich mal

Set b = a.GetFile(Nam)

durch

Set b = a.GetFolder(Nam)

ersetzt und siehe da ...

Geht! ;) Danke für die Anregung!

TommyK
10.05.2004, 13:35
Hallo,

war mein Fehler. Wieder geschlafen. Aber zum Glück hast Du es ja rausbekommen, es muss natürlich "GetFolder" lauten.