[VB6] Ottenere il numero di file in una cartella

[Luciano79]

Con la Dir

Dim NomeFile As String
Dim ElencoFile() As String

ReDim Preserve ElencoFile(0)
NomeFile = Dir(Cartella & "\*.*")

While NomeFile <> ""
   ReDim Preserve ElencoFile(UBound(ElencoFile) + 1)
   ElencoFile(UBound(ElencoFile)) = NomeFile
   NomeFile = Dir()
Wend

MsgBox UBound(ElencoFile) 'numero di files

In questo modo ElencoFile conterrà anche i nomi dei files.

Se vuoi usare un controllo FileListBox, inserisci questo in una form e imposta la cartella (nelle proprietà del FileListBox è la voce "path").
Fai partire il programma e prova ad eseguire:
MsgBox FileListBox1.ListCount
ListCount è un metodo del controllo FileListBox che ti restituisce il numero di files. Se lo provi capisci quanto è facile...