il seguente script è ottimo per contare tutti i files contenuti in una cartella e sue sottocartelle....

ma come posso fare se voglio contare solo i files con estensione in pdf?



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


set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder("F:\prova\")
strCartella = folder

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