script semplicissimo

[roboro]

Ciao,

sto cercando uno script semplicissimissimo che mostri i file contenuto in una dir(eventualemnte passata come paramentro da url) e li mostri con un bottone avanti e indietro...qualcuno può aiutarmi, ho sbirciato nel forum ma non ho trovato nulla che faccia al caso mio..Asp non lo conosco molto..

Grazie

[Roby_72]

A te occorre la paginazione di file... Non è semplicissimo.

Roby

[roboro]

pardon...credevo di si...

ma almeno è possibile avere un' inizio di script che legga la dir e mostri tutte le immagini in essa contenute?

[Roby_72]

Cerca nel forum è stato postato diverse volte.

Roby

[roboro]

Scusami...ok ho deciso di provare a farmelo da solo....o meglio ritentare di farmelo da solo...mi servirebbe però perfavore sapere come si fa a sapere quanti file sono presenti in una dir...esiste qualche funzione di proprietà...che funzioni tipo il size che restituisce la dimensione?

ho cercato ma non ho trovato nulla in merito..

[Roby_72]

Dove hai cercato?
http://www.w3schools.com/asp/asp_ref_filesystem.asp
http://www.w3schools.com/asp/asp_ref_file.asp

Roby

[roboro]

nel forum "numero file directory"

secondo voi funziona?..non posso provarlo qui...

<%

directory = Request.Form("/grafica/animali")
num_foto = Request.Form("num")
totale_foto = 132;

If (num_foto == totale_foto) then
response.write("Fine galleria")
else
response.write("[img]"&directory&"/"&num_foto&"[/img]&"'>")

num_foto_avanti = num_foto + 1
num_foto_indietro = num_foto - 1

if (num_foto_indietro < 0) then
num_foto = 0
reponse.write("Avanti")
end if
end if
%>


se non ho sbagliat la sintassi

[roboro]

ho guardato i link a non ho trovato nulla che mi restituisca il numero di file di una dir...

[Roby_72]

Non puoi saperlo prima... Devi scorrere tutti i file della cartella ed ottenere il numero.

Function MostraElencoCartelle(tipocartella)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(tipocartella)
   Set fc = f.Files
   For Each f1 in fc
      s = s & f1.name 
      s = s & "
"
   Next
   MostraElencoCartelle = s
End Function

Roby

[roboro]

grazie,...ma a questa funzione, basta passarle il nome della dir e lei mi restituisce il numero di file presenti?

capito bene?