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(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
Saves text to a .ini or .dat or whichever extention you would like it to Comments
No comments yet — be the first to post one!
Post a Comment