• Home
 · 
• Files/File Controls/Input/Output
 · 
• Saves text to a .ini or .dat or whichever extention you would like it to

Saves text to a .ini or .dat or whichever extention you would like it to

Saves text to a .ini or .dat or whichever extention you would like it to

Rate Saves text to a .ini or .dat or whichever extention you would like it to

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'if you would like to save under a different file extention (here it's .dat)
'just change the extention in the code.

Private Sub LoadTextFromFile(Textb as String)
On Error GoTo Error
Open "c:\visualbasic.dat" For Output As #1
Write #1, Textb
Close #1
End Sub

Private Sub SaveTextToFile(Textb as String)
On Error GoTo Error
Open "c:\visualbasic.dat" For Input As #1
Input #1, lineoftext$
Textb = lineoftext$
Close #1
End Sub

Error:
Msgbox "There has been an error!", VbOkOnly, "Oops!"
End Sub