Contare files pdf

[naverit]

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)

[Roby_72]

Penso che cambiare sistema di conta dei file.
Dovresti usare la for each file in cartella ed incrementare un contatore ad hoc per quelli pdf.

Roby

[naverit]

un esempio?

io non riesco!!!

[wallrider]

invece che
NumeroFile = cartella.files.count

fai un
for each fle in cartella.files

e se fle è un file pdf(lo vedi estrapolando gli ultimi 3 caratteri del nome) incrementi NumeroFile

[naverit]

Server.ScriptTimeOut = 600


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 fle in cartella.files

for each sottocartella in sottocartelle
NumeroFile=NumeroFile+ContaFile(sottocartella.path )
next
ContaFile = NumeroFile
End Function


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

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



così? si possono annidare 2 for each?
ora devo contare solo i pdf...

[naverit]

non va!!!