Pa ovaj kod koji sam ti pre dao to radi sto si trazio. Trebao si samo da postavis File1.Visible=false da se ne vidi.
Evo tacno to sto si trazio.
Code:
Private Sub Command1_Click()
UcitajIzFileListBoxaUListBox
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
File1.Visible = False
End Sub
Public Sub UcitajIzFileListBoxaUListBox()
List1.Clear
For n = 0 To File1.ListCount - 1
List1.AddItem File1.List(n)
Next n
End Sub
rgdrajko