Salve a tutti!
ho un sito che permette di gestire ai miei utenti una sottocartella del mio spazio web e in una sezione stampo a video tutti i file e le sottocartelle presenti in una data directory...e fin qui nessun problema!
vorrei fare in modo che affianco al nome del file, a seconda dell'estensione, compaia anche l'icona (immagini, pagine web, ecc...). si può fare? per le cartelle non c'è problema xkè l'icona è unica ma per i file deve variare a seconda del tipo di file!
se qualcuno ha idea di come si possa fare per favore rispondete!
qui vi posto il codice per stampare a video il contenuto di una cartella mettendo l'icona delle sole sottocartelle
[code]
Dim objFso, objFolder, objFiles, strFolder, strFile, strSubFolder
strPath = "cartella/"
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
Set objFiles = objFolder.Files
Set objSubFolders = objFolder.SubFolders
For Each strSubFolder in objSubFolders
%>
<font size=4>[img]iconacartella.jpg[/img]<% Response.Write( strSubFolder.name ) & "
" %></font><%
Next
For Each strFile in objFiles
Response.Write(strFile.name & " - " & strFile.Size & "
")
Next
Set objFso = Nothing
Set objFolder = Nothing
Set objFiles = Nothing
Set objSubFolders = Nothing
Rispondi quotando
