[VB] Leggere uno per uno i files contenuti in una cartella

[ladyBlu]

Dunque, l'utente seleziona una Cartella da una DirListBox e io mi memorizzo il Path selezionato in una variabile.
A questo punto devo leggere tutti i files contenuti in questa cartella e scriverne il nome in una ListView...
...sono un tantino in panne...

[laccamen]

Originariamente inviato da ladyBlu
Dunque, l'utente seleziona una Cartella da una DirListBox e io mi memorizzo il Path selezionato in una variabile.
A questo punto devo leggere tutti i files contenuti in questa cartella e scriverne il nome in una ListView...
...sono un tantino in panne...

ho paura che con la dirlistBox puoi usare solo la FileListBox cosi:

file1.path = dir1.path

[MMarzia]

  strNomeFile = Dir(percorso, vbNormal)
  
  Do While strNomeFile <> ""
    
  ....
    
FineLoop:
    strNomeFile = Dir
  Loop

dovrebbe andare

[MMarzia]

... spero tu sia riuscita a leggerlo prima della chiusura

[ladyBlu]

con la Dir non ce l'ho fatta, ma a furia di dare capocciate ho trovato la soluzione utilizzando gli oggetti Folder e File e l'insieme Files e la listview lvElencoFiles:

lvElencoFiles.ListItems.Clear
lvElencoFiles.View = lvwList
                               
Dim flFiles As Files, fldFolder As Folder, flFile As File

Set fldFolder = fsFile.GetFolder(mvarstrPercorso)
Set flFiles = fldFolder.Files

For Each flFile In flFiles
         lvElencoFiles.ListItems.Add Text:=flFile.Name
Next

grazie comunque per l'aiuto ragazzi