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

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:")

About this post

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

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.