[VB] Nome Cartella Dal File Della Listbox

[Johnny_Depp]

Non ho capito bene quello che vuoi fare cmq con il mio esempio
carichi nella list-box tutte le directory (solo le directory)
presenti in "C:\Documenti"

    Dim p As Integer
    Dim pntDir As String
    pntDir = Dir$("C:\Documenti\", vbDirectory)
    While pntDir <> ""
        If pntDir <> "." And pntDir <> ".." And Mid$(Right$(pntDir, 4), 1, 1) <> "." Then
            List1.AddItem pntDir
            p = p + 1
        End If
        pntDir = Dir$
    Wend