[VB6] Lista delle cartelle di una directory in una ComboBox

[warhammer89]

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

[wallrider]

ti risparmio la paternale sull'usare del codice di cui non si conosce il funzionamento...
assicurati (da strumenti/riferimenti) di avere il riferimento a Microsoft Scripting Runtime, poi prova a modificare la tua funzione da
...
Dim fld As Object
...

a
...
Dim fld as Folder
...

poi nella funzione scrivi
fld.

e vedrai che ti appaiono tutte le proprietà dell'oggetto folder