Salve, ho questo codice per vedere su una combobox i file di una cartella, poi la voce selezionata tramite un tasto andrà ad un msgbox:

Public Function GetFiles(strFolder As String) As Object
Dim fso As Object
Dim fld As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(strFolder)
Set GetFiles = fld.Files
Set fso = Nothing
Set fld = Nothing
End Function


Private Sub Command1_Click()

Dim s

For Each s In GetFiles("C:\")

Combo1.AddItem s

Next

End Sub

Private Sub Command2_Click()
MsgBox Combo1.Text

End Sub


Funziona tutto ok, però se io volessi anzichè vedere i file, vedere le cartelle (senza sottocartelle e senza il prefisso del percorso tipo C./douments..ecc) come devo fare?

Ho usato il comando GetFolder ma non mi sembra funzioni..Oo