• Home
 · 
• Files/File Controls/Input/Output
 · 
• This program creates txtfiles saves information about your game at runtime in a file, so you can ma

This program creates txtfiles saves information about your game at runtime in a file, so you can ma

This program creates txtfiles saves information about your game at runtime in a file, so you can make longer games. The code also reads the

Rate This program creates txtfiles saves information about your game at runtime in a file, so you can ma

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Also see my installation program.

'*******************Write Info**********************
    Static y As String
    Static x As Integer
    y = Text1.Text
    x = Combo1.Text
    Dim fso As New FileSystemObject, txtfile, fil1, fil2
    Set txtfile = fso.CreateTextFile("c:\Game\Save\Level1.txt", True)
    Set fil1 = fso.GetFile("c:\Game\Data\info.txt")
    Set fil2 = fso.GetFile("c:\Game\Data\info1.txt")
    Set ts = fil1.OpenAsTextStream(ForWriting)
    Set th = fil2.OpenAsTextStream(ForWriting)
    ts.Write y
    ts.Close
    th.Write x
    th.Close
    txtfile.Write ("The password is Cool.")
    txtfile.Close
'****************Read info****************
    Dim fso As New FileSystemObject, txtfile, fil2, fil1 As File, ts As TextStream
'Make sure to check microsoft scripting runtime under references under project
    Set fil1 = fso.GetFile("c:\game\data\info.txt")
    Set ts = fil1.OpenAsTextStream(ForReading)
    s = ts.ReadLine
    Combo1.Text = s
    ts.Close
    Set fil2 = fso.GetFile("c:\game\data\info1.txt")
    Set th = fil2.OpenAsTextStream(ForReading)
    h = th.ReadLine
    Text1.Text = h
    th.Close
    End Sub