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 Inputs: Create una listbox --> list1 Create una dirlB --> dir1 Dimensionate la variabile cur_depth su sezione dichiarazioni Per chiamare la Sub..listdir("c:\directory") |