• Home
 · 
• Files/File Controls/Input/Output
 · 
• Searching all files in drives and directories.

Searching all files in drives and directories.

Searching all files in drives and directories.

Rate Searching all files in drives and directories.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim Z As Integer

Private Sub Dir2_Change()
Me.File2.Path = Me.Dir2.Path
End Sub

Private Sub Drive2_Change()
Me.Dir2.Path = Me.Drive2.Drive
End Sub

Private Sub Form_Load()
Me.File1.Path = "f:\"
Me.Dir1.Path = "f:\"
I = Me.Dir1.ListCount
Z = 0
End Sub

Private Sub Timer1_Timer()

Dim Z As Integer
I = Me.File1.ListCount
Z = 0
While Z <= I
    Me.List1.AddItem Me.File1.List(Z)
    Z = Z + 1
Wend
End Sub

Private Sub Timer2_Timer()
If Z <= I Then
     Me.File1.Path = Me.Dir1.List(Z)
    Z = Z + 1
Else
Me.Timer1.Enabled = False
Me.Timer2.Enabled = False
End If
End Sub



'make sure all the controls are taken in the form.
'Please reply how you like our service
'Please reply to [email protected]