contare file in una cartella

[scura]

Buongiorno a tutti

esiste qualcosa di più specifico per contare i file all'interno di una cartella rispetto ad una cosa del genere ?


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.getfolder( "percorso\"&cartella )

i = 0

For each objFso in objFolder.files
i = i+1
Next
TotaleFile = i

[scura]

ps. forse faccio prima così: ho fatto una semplice galleria di immagini che legge i file all'interno di una cartella e sto cercando di paginare le immagini

Questa è la funzione per visualizzare le anteprime, che dovrei paginare


Function gallery(cartella, nomeFile)
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFso.getfolder( "percorso\"&cartella )

Dim i, strAnteprima
i=0
For each objFso in objFolder.files

i = i+1


nomeImg = Split(objFso.name, ".")

if i = 1 then

strAnteprima=strAnteprima& "[img][/img]"

else
strAnteprima=strAnteprima& "[img][/img]"

end if

Next
gallery = strAnteprima
end function


potevo pure evitare di fare questo: nomeImg = Split(objFso.name, ".") e recuperare anche l'estensione del file...comunque ora quello che vorrei riuscire a fare è paginare

[wallrider]

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set = objFso.getfolder( "percorso\"&cartella )

TotaleFile = objFolder.SubFolders.Count

[scura]

ok già è qualcosa.... sto cercando di risolvere con questa paginazione magari tra un pò posto qualche riga


grazie

[scura]

ma sei sicuro che conta i file contenuti nella cartella ?

[scura]

mi sa che è objFolder.files.Count

l'altro conta le cartelle

[wallrider]

scusa

[scura]

e di chè ? mi hai dato comunque sostegno

e sono riuscita a tirare fuori questa cosa, magari potrà essere utile a qualcuno oppure qualcuno potrebbe migliorarla


Function gallery2(cartella, nomeFile)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.getfolder( "percorso\"&cartella )

Dim i, strAnteprima
i = 0

For each objFso in objFolder.files
Str_Anteprima_Array = Str_Anteprima_Array&objFso.name&"*"
Next

Anteprima_Array = Split(Str_Anteprima_Array,"*")

n_file_per_pagina = 4
totale_file = objFolder.files.Count
numero_pagine = Round(totale_file / n_file_per_pagina)

if request.QueryString("pag")<>"" then
prima = request.QueryString("pag")
else
prima = i
end if

For i = prima + 1 to prima + n_file_per_pagina

if i > totale_file then
exit for
end if

nomeImg = Anteprima_Array(i-1)

if i = 1 then
strAnteprima=strAnteprima& "[img][/img]"
else
strAnteprima=strAnteprima& "[img][/img]"
end if
Next

if i-1 > totale_file or i-1 = totale_file then
response.write strAnteprima&"
"
response.write "[img][/img]"
end if

if i-1 < totale_file and request.QueryString("pag")<>"0" and request.QueryString("pag")<>"" then
response.write "[img][/img]
"
response.write strAnteprima&"
"
response.write "[img][/img]"
end if

if request.QueryString("pag")="" or request.QueryString("pag")="0" then
response.write "[img][/img]
"
response.write strAnteprima
end if


end function