by Pawan Choure (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 2nd July 2006
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Searching The Files in the Directories By Specifying the Files Extension
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
' Set Default property.
Command1.Default = True
Combo1.AddItem "*.bmp"
Combo1.AddItem "*.dll"
Combo1.AddItem "*.exe"
Combo1.AddItem "*.dat"
Combo1.AddItem "*.jpeg"
Combo1.AddItem "*.Dat"
Combo1.AddItem "*.mpeg"
Combo1.AddItem "*.doc"
Combo1.AddItem "*.mp3"
End Sub
Private Sub Command1_Click()
' Set directory path.
File1.FileName = Combo1.Text
Dir1.Path = File1.Path
End Sub
Private Sub File1_PatternChange()
' Set text to new pattern.
Combo1.Text = File1.Pattern
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
No comments have been posted about Searching The Files in the Directories By Specifying the Files Extension. Why not be the first to post a comment about Searching The Files in the Directories By Specifying the Files Extension.