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:
codice:
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