%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
percorso=replace(request.querystring("c"),"-s-","/")
'percorso = "..\..\public\foto mezzalama\2007"
percorsomap=percorso&"/"
dirName=server.mappath(percorso)
Dim fso ' il file system object
Dim folder ' la cartella (directory)
Dim file ' il singolo file
Dim string ' per contenere l'elenco
' N.B. assumo che 'dirName' contenga il nome della
' directory che si vuole 'listare'
' creo il FSO ed accedo alla singola cartella
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder( dirName )
numerofiles=0
dim elencofiles()
' recupero quanti files e metto il nome in elencofiles
For Each file in folder.Files
ReDim Preserve elencofiles(numerofiles)
elencofiles(numerofiles)=file.name
numerofiles=numerofiles+1
Next
nrighe=cint((numerofiles/4)+.49999999)
'For i =0 to numerofiles-1
' Response.Write(i & " " &elencofiles(i) & " ") 'Next Set folder=Nothing Set fso=Nothing %> Foto:
<%response.Write(numerofiles)%>
|
|