ListAllDir

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