[VB6] Conoscere numero di file in una directory

[zorro77]

salve a tutti, c'è un modo magari più pulito rispettoa quanto postato, per sapere quanti file ci sono in una directory?

Dim listFile As String
listFile = Dir$("D:\Temp\*.*")

Do While Len(listFile)
      Dim count As Integer
      count = count + 1
      listFile = Dir$
Loop