• Home
 · 
• Coding Standards
 · 
• List All Directories And Sub-Directories Into A Listbox

List All Directories And Sub-Directories Into A Listbox

This will list all the directories and subdirectories on your hard drive into a listbox.
Vote if ya wanna.

Inputs
Don't Forget The Declarations

Assumes
Don't Forget The Declarations

Returns
Don't Forget The Declarations

Side Effects
Don't Forget The Declarations

API Declarations
Sub Listdir(path)
Dim d(1000)
Dir1.path = path
For lop = 0 To Dir1.ListCount - 1
d(cnt) = Dir1.List(lop)
cnt = cnt + 1
Next lop
For lop = 0 To cnt - 1
List1.AddItem d(lop)
cur_depth = cur_depth + 1
listdir d(lop)
Next lop
cur_depth = curr_depth - 1
End Sub


Rate List All Directories And Sub-Directories Into A Listbox

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Add the declarations mentioned above, then put this in when you want it to run:
Listdir ("C:\")