Search Tools Links Login

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


Don't Forget The Declarations


Don't Forget The Declarations


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


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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 74 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.