Elencare le proprietà di un file con FileSystemObject.

Ecco come avere tutte le caratteristiche di un file, basta impostare il nome del file che ci vengono fornite diverse informazioni come data di creazione, ultima modifica, ultimo accesso e tante altre caratteristiche.

<% 

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

'Impostare qui il nome del file
strFile = Server.MapPath("/home.asp") 

Set f = Fso.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 Fso = Nothing 

%>

freeware, filmati, ferrari, filmato, incidenti, maradona, macchine sportive, pele, download, shumacher, radio, lamborghini, programmare, sport, foto, cerca lavoro, natura, animali, van basten, sorpassi