• Home
 · 
• Files/File Controls/Input/Output
 · 
• Searching The Files in the Directories By Specifying the Files Extension

Searching The Files in the Directories By Specifying the Files Extension

Searching The Files in the Directories By Specifying the Files Extension

Rate Searching The Files in the Directories By Specifying the Files Extension

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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