Dim fso, file
dim strDateCreated, strDateLastAccessed, strDateLastModified

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile("C:\test.txt")
strDateCreated = file.DateCreated
strDateLastAccessed = file.DateLastAccessed
strDateLastModified= file.DateLastModified
set file = nothing
set fso = nothing

Beispiel mit dem Folder-Objekt

1
2
3
4
5
6
7
8
9
10

Dim fso, folder
dim strDateCreated, strDateLastAccessed, strDateLastModified

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\test\")
strDateCreated = folder.DateCreated
strDateLastAccessed = folder.DateLastAccessed
strDateLastModified= folder.DateLastModified
set folder = nothing
set fso = nothing

Beachten Sie, daß sich die Zeitangaben je nach Betriebssystem unterscheiden können.

top