Come anteprima file in xp

[Luis33]

Ciao a tutti e bentrovati.

Avete presente quando in win xp si seleziona da Risorse del computer una cartella e dal menu Visualizza file si scegli anteprima?

I file contenuti in quella cartella vengono visualizzati come nel file che ho allegato al 3D; può realizzarsi in asp? Se si, come si fa?

[burruchaga]

intendi associare un icona in base all'estensione del file?

[Luis33]

Originariamente inviato da burruchaga
intendi associare un icona in base all'estensione del file?

grazie, proprio così.

[weppos]

Creati un elenco di estensioni e delle relative icone per ogni estensione.

Dopo di che scorri il contenuto della cartella, leggi l'estensione e confrontandola all'elenco precedente mostra l'icona corrispondente.


(sembra un po' una filastrocca :master: )

[Luis33]

grazie, ma la ricerca del forum non funziona ed io sono fuori sede di lavoro... qualcosa in rete da personalizzare? :master:

[weppos]

Originariamente inviato da Luis33
grazie, ma la ricerca del forum non funziona ed io sono fuori sede di lavoro... qualcosa in rete da personalizzare? :master:

Non saprei, cmq non è così difficile da fare.

[Luis33]

Con questo script si conta il numero dei files presenti in una determinata cartella, ma per avere l'elenco di questi files? :master:

Set fso = CreateObject("Scripting.FileSystemObject") 
Set folderObject = fso.GetFolder(Server.MapPath("\")) 
Set filesObject = folderObject.Files 
i=0 
For Each file In filesObject 
i=i+1 
Next 
response.write "sono presenti: "& i & " files uploadati!

" 
Set fileObject = Nothing 
Set folderObject = Nothing 
Set fso = Nothing

[Luis33]

trovato.. così li visualizzo come elenco... però come mai anche se lo script che legge è nella stessa directory nella quale voglio leggere i files, mi restituisce sempre l'elenco della root? :

dir="/"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath("/"))
Set file3 = file2.Files
For Each file in file3
response.write "<A HREF='"
response.write file.name
response.write "'>"
response.write file.name
response.write "</A>
"
Next

[Luis33]

Ok adesso funziona bene e mi restituisce l'elenco dei files della giusta directory... ma per avere l'anteprima e l'estensione del file?... pensavo di utilizzare una cosa del genera ma come la integro con l'elenco files?:

function analizza(strNome)
dim arrParti
arrParti=split(strNome,".")
dim strEstensione
strEstensione=arrParti(UBOUND(arrParti))
select case strEstensione
case "asp"
analizza="Pagina Active Server Page"
case "aspx"
analizza="Pagina creata in asp.net"
case "php","php3","php4"
analizza="Pagina Personal Home Page"
case "html","htm"
analizza="Pagina web statica"
case "js"
analizza="Pagina contenente Javascript"
case "css"
analizza="Foglio di stile"
case else
analizza="File NON conosciuto in elenco."
end select 
end function

[burruchaga]

con questo rigo imposti la directory da esplorare

Set file2 = file1.GetFolder(server.mappath("/"))
"/" esplora la rotto principale

Set file2 = file1.GetFolder(server.mappath("/my_folder/"))
esplora la directory "my_folder"