<%

Dim FileObject
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

strFile = Server.MapPath("/default.asp")

Set f = FileObject.GetFile( strFile )

Response.write "<P>Proprietà del file '" & strFile &"' <BR>"
Response.write "Creazione: " & f.DateCreated
Response.write "<BR>Ultima modifica: " & f.DateLastModified
Response.write "<BR>Ultimo accesso: " & f.DateLastAccessed

intAttributi = f.Attributes

Response.write "<BR>Attributi: <UL>"

if intAttributi = 0 then
 Response.write "<li>File normale"
end if

if intAttributi >= 128 then
 intAttributi = intAttributi - 128
 Response.write "<li>File compresso"
end if

if intAttributi >= 64 then
 intAttributi = intAttributi - 64
 Response.write "<li>Collegamento"
end if

if intAttributi >= 32 then
 intAttributi = intAttributi - 32
 Response.write "<li>File di archivio"
end if

if intAttributi >= 16 then
 intAttributi = intAttributi - 16
 Response.write "<li>Directory"
end if

if intAttributi >= 8 then
 intAttributi = intAttributi - 8
 Response.write "<li>Volume"
end if

if intAttributi >= 4 then
 intAttributi = intAttributi - 4
 Response.write "<li>File di sistema"
end if

if intAttributi >= 2 then
 intAttributi = intAttributi - 2
 Response.write "<li>File nascosto"
end if

if intAttributi >= 1 then
 intAttributi = intAttributi - 1
 Response.write "<li>File nascosto"
end if

Response.write "</UL>"

Set f = Nothing
Set FileObject = Nothing

%>