Contare il numero di File presenti in una cartella

Question

Win10

Access '13

ho questa Funzione che uso per contare il numero di file presenti in una cartella, ma ... mi riporta un valore errato.

per esempio in una cartella vuota mi riporta che ci sono 2 file al suo interno

se ce ne sono 42 ne riporta 44...

in altre che sono vuote riporta invece correttamente 0

Function QuantiFile(ByVal strPath As String) As Long

Dim strName As String

Dim intConta As Long

On Error Resume Next

strName = Dir(strPath, vbDirectory)

Do While strName <> ""

intConta = intConta + 1

strName = Dir

Loop

QuantiFile = intConta

End Function

potete farmi capire come mai si presentano gli errori sopradescritti?

mille grazie

Ivan

Answer 1

Fatti fare la lista dei file che trova

aggiungendo un

Debug.Print StrName

Oppure una msgbox

Msgbox StrName

nel loop

Mimmo

Answer 2

buongiorno Mimmo,

leggo adesso la tua preziosa risposta grazie.

ho provato come tu hai suggerito ma gli errori permangono...

diciamo che nella cartella di ricerca si possono trovare anche delle altre cartelle ma queste non mi interessa conteggiarle.

ma l'errore di conteggio rimane uguale.

in questo caso per esempio adesso nella cartella c'è 1 solo file ma ne conteggia 2

strano

grazie lo stesso

Answer 3

Do While strName <> ""

If strName <> "." And \_

    StrName <> ".." then

   intConta = intConta + 1

End if

strName = Dir

Loop

Mimmo

Answer 4

e con questa tua risposta non so più come andare avanti.

molto bene!

:)

Answer 5

Ciao,

testa il contenuto di stranamente, devi escludere dal conteggio i valori

"."

".."

Mimmo