• Home
 · 
• Files/File Controls/Input/Output
 · 
• This simple bit of code allows you to open files on your computer in a textbox. All the files infor

This simple bit of code allows you to open files on your computer in a textbox. All the files infor

This simple bit of code allows you to open files on your computer in a textbox. All the files information will be shown in a given textbox on

API Declarations


2) Copy the code for each section to the correct control
3) You dont need the 'Private Sub' part, That is to show what control the code is for.

REQUIREMENTS::

1 DirListBox
1 FileListBox
1 TextBox
1 Command Button



Rate This simple bit of code allows you to open files on your computer in a textbox. All the files infor

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()

On Error Resume Next

If File1.FileName > "" Then
    Open Dir1.Path & "\" & File1.Path For Input As #1
        Text1.Text = Input$(LOF(1), 1)
    Close #1
End If

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub


THATS ALL!!  2 PARTS AND YOUR DONE!