Menu













Yehpee.com cerca l'azienda e promuovi il made in italy

    Elencare le proprietà di un file

    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

Usiamo i cookies per rendere possibile il corretto funzionamento del sito web per ogni utente. Utilizzando il nostro sito, accetti le nostre modalità di utilizzo dei cookies.
Privacy e cookie policy