Textbox istediğiniz dosyayı açın ! -

General bölümüne :
(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


======General bölümüne yazılacak bitti=======


Form'a yazılacak yer ;

Private Sub Form_Load()
Text1.Text = DosyaAc("c:\autoexec.bat")
End Sub