'open a textfile on
disk
into a textbox
'make a Form with a TextBox (multiline = True)
'and two commandbuttons
'put the next code on
the appropiate places
Sub Command1_Click()
Call GetFile("c:\autoexec.bat")
End Sub
Private sub
GetFile(FileName$)
Dim nFilenumber%
Dim tmpLine$
Text1.Text = ""
nFilenumber = FreeFile
Open FileName$ For input
as
#nFilenumber
Do While Not EOF(nFileNumber)
Input #nFileNumber, tmpLine
Text1.Text = Text1.Text & tmpline
Loop
Close #nFileNumber
End Sub
'save the content of a textbox into a file on
disk
Sub Command2_Click()
Dim answer$
answer$ = InputBox("Which name will you give the file?")
If answer$="" then Exit Sub
Call SaveFile(answer$)
End Sub
Private sub
SaveFile(FileName$)
Dim nFilenumber%
nFilenumber = FreeFile
Open FileName$ For Output as
#nFilenumber
Print #nFileNumber, Text1.Text
Close #nFileNumber
End Sub
Return