Private Sub cmdAddDrives_Click()
lstResult.AddItem Drive1.List(I)
Next
End Sub
Private Sub cmdAllFiles_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PopupMenu mnuFiles
End If
End Sub
Private Sub cmdAllSubDirectories_Click()
lstResult.Clear
For I = 0 To Dir1.ListCount – 1
lstResult.AddItem Dir1.List(I)
Next
End Sub
Private Sub cmdClear_Click()
lstResult.Clear
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub mnuAllFiles_Click()
File1.Pattern = “*.*”
For I = 0 To File1.ListCount – 1
lstResult.AddItem File1.List(I)
Next
End Sub
Private Sub mnuBitmaps_Click()
File1.Pattern = “*.bmp”
For I = 0 To File1.ListCount – 1
lstResult.AddItem File1.List(I)
Next
End Sub
Private Sub mnuText_Click()
File1.Pattern = “*.txt”
For I = 0 To File1.ListCount – 1
lstResult.AddItem File1.List(I)
Next
End Sub