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.
Original Author: CovertLoop
Inputs
Don't Forget The Declarations
Assumptions
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
Code
Add the declarations mentioned above, then put this in when you want it to run:
Listdir ("C:")
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.