by Christopher Piestland (1 Submission)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 4th June 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Demonstrates opening and saving a file
VBcoders
Private Sub Command1_Click()
Filename = InputBox$("Enter A Filename To Save The text")
Open Filename for Input As #1
Print #1, Text1.text'place a textbox on the form for the text to save to the hard drive
Close #1
End Sub
'Code To Load Text
Private Sub Command2_Click()
Filename = InputBox$("Enter The Filename To Open")
Open Filename for Output As #1
Text1.text = Input(LOF(1), 1)'Place A Text Box On The Form For The Text To Load to
Close #1
End Sub
'If You Have any probelms with the code email me at [email protected]
