Listing all folders in a directory

[JoshK]

Hi,
My previous post was too confusing and broad. So I'll start here:

How do I list all the folders of a folder or directory into a listbox?

If it isn't possible to list them into a listbox what other way can I list them? I need the list to be able to have a folder selected so the user can delete it, though.

Thanks

J.KLEIN

[filburt1]

Why not just use a DirListBox? It does it automatically.

[JoshK]

Why?
I don't know if that will work with my program.
The program will search in a specific game directory of a user's machine, find all folders and list them.
The user will then have the option to add a new folder or delete current folders that are listed.

If this can be done with a DirListBox, then maybe you can help?


Thanks,
JKLEIN

[rjlohan]

DirListBox is read-only. You can list all folders in (and above) a directory .Path, but not add folders. For that you will need to use FSO.

Set a reference in your proj to Microsoft Scripting Runtime.
The do something like this:

Dim FSO As New FileSystemObject
FSO.CreateFolder "C:\test\"

[rjlohan]

If you're doing this to save files or something, you might prefer to use a CommonDialog control, which has this sort of thing done for you.

[Tygur]

Originally posted by rjlohan
DirListBox is read-only. You can list all folders in (and above) a directory .Path, but not add folders. For that you will need to use FSO.

Set a reference in your proj to Microsoft Scripting Runtime.
The do something like this:

Dim FSO As New FileSystemObject
FSO.CreateFolder "C:\test\"

As a quick note, FSO is not required if you want to make a directory. VB provides MkDir for that purpose:
MkDir "c:\new folder"

[rjlohan]

I'll be damned. Who'dve thought?

[Tygur]

Okay, here's a subroutine to fill a listbox with all the subdirectories in a particular folder:

Sub ListDirs(ByVal sDir As String, lbListBox As ListBox)
Dim sFileDir As String
If Right(sDir, 1) <> "\" Then sDir = sDir & "\"
sFileDir = Dir(sDir & "*.*", vbDirectory)
Do Until sFileDir = ""
    If (GetAttr(sDir & sFileDir) And vbDirectory) = vbDirectory Then
        If sFileDir <> "." And sFileDir <> ".." Then
            lbListBox.AddItem sFileDir
        End If
    End If
    sFileDir = Dir
Loop
End Sub