[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

[zorro77]

Ho specificato il linguaggio...ma non capisco perchè spesso non esce
Cmq è VB6

[oregon]

Usa il FileSystemObject ...

    Dim fso As Object
    Dim folder As Object
    
    Set fso = CreateObject("Scripting.Filesystemobject")
    Set folder = fso.GetFolder("D:\Temp")
    
    Print folder.Files.Count
    
    Set folder = Nothing
    Set fso = Nothing

[zorro77]

il FileSystemObject richiede più risorse di quanto scritto io oppure è lo stesso?

[oregon]

Beh ... non e' una cosa "misurabile" in maniera precisa ... e' poco importante ...

[alka]

Originariamente inviato da zorro77
Ho specificato il linguaggio...ma non capisco perchè spesso non esce
Cmq è VB6

Non preoccuparti, è un problema dovuto alla modifica dei messaggi: il dato viene perduto.
Ci stanno lavorando, non so quando finiranno. Fino ad allora, dovrò un po' sudare per indovinare il linguaggio nelle discussioni che hanno perduto il prefisso... ma c'è di peggio.

[zorro77]

Vabbè..cercherò di evitarti del lavoro scrivendo cmq il linguaggio...dal momento che scrivo spesso su questo forum in quanto ho trovato pesone, oltre ad essere estremamente gentili, ma soprattutto valide nelle risposte e soluzioni che riescono a darmi