FSO e numero di files presenti

[carlostefano]

Ciao,
come posso avere il numero di files presenti in una cartella, compresi quelli contenuti nelle sottocartelle attraverso l'uso del FSO?

Saluti,
carlostefano

[fiber81]

Non so se esiste una funzione che te li restituisca direttamente...

set fs=Server.CreateObject("Scripting.FileSystemObject ")
set fo=fs.GetFolder(percorso)
num_file = 0
For Each objfiles in fo.Files
num_file = num_file + 1
Next

[willybit]

Ciao a tutti,

fiber81, così conti tutti i file della cartella ma non quelli delle sottocartelle. Per avere il numero senza fare cicli basta la proprieta count della collezione files.

carlostefano, per contare tutti i file della cartella e sottocartelle potresti fare una funzioncina ricorsiva

set fso = server.CreateObject("Scripting.FileSystemObject")
Function ContaFile(PathCartella)
	Dim NumeroFile, cartella, sottocartelle
	set cartella = fso.GetFolder(PathCartella)
	set sottocartelle = cartella.SubFolders
	NumeroFile = cartella.files.count
	for each sottocartella in sottocartelle
		NumeroFile=NumeroFile+ContaFile(sottocartella.path)
	next
	ContaFile = NumeroFile
End Function

strCartella = "/prove/FileSystemObject/txt/"

Response.Write  "I file contenuti nella cartella " & strCartella & " e in tutte le sottocartelle sono:" & ContaFile(Server.MapPath(strCartella))

[carlostefano]

Funziona

Grazie!
carlostefano