Searching all files in drives and directories.

by Prabir Kumar Das (7 Submissions)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 4^th December 2006
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Searching all files in drives and directories.



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]

Download this snippet Add to My Saved Code

Searching all files in drives and directories. Comments

No comments have been posted about Searching all files in drives and directories.. Why not be the first to post a comment about Searching all files in drives and directories..

Searching all files in drives and directories.

Searching all files in drives and directories. Comments

Post your comment

Difficulty