Application using file system controls in VB
Screen Design
Private Sub Dir1_Change()
File1.FileName = Dir1.Path
File1.Pattern = "*.txt"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
x = File1.FileName
fileselected = File1.Path
If Right(fileselected, 1) = "/" Then
fileselected = File1.Path + x
Else
fileselected = File1.Path + "/" + x
End If
Me.RichTextBox1.LoadFile (fileselected)
End Sub
Private Sub Form_Load()
File1.Pattern = "*.txt"
End Sub
Output Screen
