Write a program to make file list box and drive list box ?

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
List1.AddItem File1.FileName
End Sub


Posted by: Wasim Javed