visualizzare img sapendo il folder.name

[yro]

Ciao a tutti!
come da titolo dovrei visualizzare il contenuto di una cartella che contiene solo immagine .jpg sapendo il nome della cartella(che mi arriva in querrystring tramite un menu)

come posso fare?

grazie!

[Baol74]

Function PrintImages(Folder)
Dim Fso,Files,File
Folder = Replace(Folder,"\","/")
If Mid(Folder,Len(Folder),1)<>"/" then Folder = Folder & "/"
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Files=Fso.GetFolder(Server.MapPath(Folder)).Files
For Each File In Files
 Response.Write "[img]" & Folder & File.Name & "[/img]
"
Next
Set File =Nothing
Set Files = Nothing
Set Fso=Nothing
End Function

PrintImages "public/images/"

Questo script non funziona se passi percosi fisici.
Naturalmente devi adattarlo alle tue esigenze di layout

[yro]

per fisici intendi c:\\eccetera??

grazie!

[yro]

non mi funziona, ma devo sostituire tutti i "folder" con la variabile che determina il nome della cartella che contiene le immagini?

[Baol74]

Non mi funziona cosa significa????
Ti da errore?
Non ti stampa nulla?

Cosa significa sostituire tutti i "folder"? é una Funzione! il folder lo devi impostare alla chiamata

PrintImages "quimettilatuacartella/ilpersorso/equellochetipare/limportante/che/esiste/"

[yro]

<%
nomecartella = request.QueryString("id")

Function PrintImages(Folder)
Dim Fso,Files,File
Folder = Replace(Folder,"\","/")
If Mid(Folder,Len(Folder),1)<>"/" then Folder = Folder & "/"
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Files=Fso.GetFolder(Server.MapPath(Folder)).Files
For Each File In Files
 Response.Write "[img]" & Folder & File.Name & "[/img]
"
Next
Set File =Nothing
Set Files = Nothing
Set Fso=Nothing
End Function

PrintImages "foto"
%>

cosi non stampa niente!!

[yro]

ok, ok!!!

fatto!!

grazzie!!!!!

[Baol74]

Allora significa che non ci sono immagini.

Verifica così:

Function PrintImages(Folder)
Dim Fso,Files,File,Path
Folder = Replace(Folder,"\","/")
If Mid(Folder,Len(Folder),1)<>"/" then Folder = Folder & "/"
Path = Server.MapPath(Folder)
Response.Write "Immagini di " & Path & "
"
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Files=Fso.GetFolder(Path).Files
For Each File In Files
 Response.Write "[img]" & Folder & File.Name & "[/img]
"
Next
Set File =Nothing
Set Files = Nothing
Set Fso=Nothing
End Function