• Home
 · 
• Windows System Services
 · 
• Demonstrates opening and saving a file

Demonstrates opening and saving a file

Demonstrates opening and saving a file

Rate Demonstrates opening and saving a file

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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]