Description: Option Explicit
Private Sub Command1_Click()
Text1.Text = ""
Dim i As Single
For i = 0 To File1.ListCount
Text1.Text = Text1.Text & File1.List(i) & Chr(13) & Chr(10)
Next i
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
To Search:
File list (Check if you may need any files):
VB_Load\Form1.frm
.......\Project1.csi
.......\Project1.exe
.......\Project1.vbp
.......\Project1.vbw
VB_Load
Download