TextBox İçerisine Doğrudan Bir Dosya Açma

TextBox İçerisine Doğrudan Bir Dosya Açmak

(General)(Declaration)
Function DosyaAc(dosyaadi$) As String
Dim dosya_no As Integer
dosya_no = FreeFile
Open dosyaadi$ For Input As #dosya_no
DosyaAc = Input$(LOF(dosya_no), dosya_no)
Close #dosya_no
End Function
 
Private Sub Form_Load()
Text1.Text = DosyaAc("c:autoexec.bat")
End Sub