Operazioni con oggetto File System Object (FSO)

[santino83]

Set objFolder = objFso.getfolder(server.mappath(percorso))
Set objFiles = objFolder.Files

if objFiles.Count = 0 Then 
Response.Write "cartella vuota" 
else

'intestazioni tabella

numdir = 0

For each directoryfile in objFolder.subfolders
numdir = (numdir + 1)

'valori in tabella


Next
response.Write ("Numero di cartelle presenti : " & numdir) 
end if

perchè non funziona? apparte l'errore nel if..else..end if che c'era il concetto è quello. che errore ti da?

[orcim]

scusa sono un pò stanco e non mi spiego bene...

supponiamo di avere una cartella chiamata ESSEIVO che contiene tre sottocartelle chiamate ESSEIVOUNA, ESSEIVODUE, ESSEIVOTRE.

La cartella ESSEIVO non contiene files; vorrei che quando si clicca sulla ESSEIVO si vedessero le tre sottocartelle; lo script adesso, invece, restituisce sempre "cartella vuota".

Spero d'essermi spiegato.
Grazie

[santino83]

ad occhio

Set objFolder = objFso.getfolder(server.mappath(percorso))

numdir = 0

For each directoryfile in objFolder.subfolders
numdir = (numdir + 1)

response.write directoryfile.name & "
"


Next
if numdir=0 then
response.write("nessuna cartella presente")
else
response.Write ("Numero di cartelle presenti : " & numdir) 
end if

[orcim]

era proprio questo grazie e buonanotte

Originariamente inviato da santino83
ad occhio

PS: complimenti per la "vista"