ASP file related information and directory-related information

' Parameter: File name (relative path)
' Return value: 0 size 1 Create Time 2 Last modified 3 last browse time 4 path 5 type 6 name
Public Function GetFileInfo (FileName)
Dim f,temp
Dim file (7)
On Error Resume Next
temp = Server.MapPath (FileName)
If ofso.fileexists (temp) Then
Set f = ofso.getfile (temp)
File (0) = Lib.formatnumberstr (f.size/1024,1) & "KB"
File (1) = Lib.dateformat (f.datecreated, "y-m-d h:n:s")
File (2) = Lib.dateformat (f.datelastmodified, "y-m-d h:n:s")
File (3) = Lib.dateformat (f.datelastaccessed, "y-m-d h:n:s")
File (4) = F.path
File (5) = F.type
File (6) = F.name
End If
If Err <> 0 Then Err.Clear
GetFileInfo = File
Set F = Nothing
End Function

' Function: Access to directory-related information
' Parameter: Directory name (relative path)
' Return value: 0 size 1 Create Time 2 Last modified 3 last browse time 4 path 5 type 6 name
Public Function Getfolderinfo (folderName)
Dim f,temp
Dim folder (7)
On Error Resume Next
temp = Server.MapPath (folderName)
If ofso.folderexists (temp) = True Then
Set f = ofso.getfolder (temp)
folder (0) = Lib.formatnumberstr (f.size/1024,1) & "KB"
folder (1) = Lib.dateformat (f.datecreated, "y-m-d h:n:s")
Folder (2) = Lib.dateformat (f.datelastmodified, "y-m-d h:n:s")
Folder (3) = Lib.dateformat (f.datelastaccessed, "y-m-d h:n:s")
Folder (4) = F.path
Folder (5) = F.type
folder (6) = F.name
End If
If Err <> 0 Then Err.Clear
Getfolderinfo = Folder
Set F = Nothing
End Function

%>