• Home
 · 
• Files/File Controls/Input/Output
 · 
• A simple demonstration of saving/loading files with get and put commands. This program let you

A simple demonstration of saving/loading files with get and put commands. This program let you

A simple demonstration of saving/loading files with "get" and "put" commands. This program let you generate a number, then let you save/load

Rate A simple demonstration of saving/loading files with get and put commands. This program let you

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

sub cmdAdd_Click ()
   ' add 1 to the counter and display it on a label
   counter1 = counter1 + 1
   label1.Caption = counter1
end sub

sub cmdSave_Click ()
   Dim strFn as string
   ' gets filename from user
   strFn = UCase$(Trim$(Inputbox$("Save as...", "Filename")))
   ' writes on file
   Open strFn for Binary Access Write as #1
   put #1, , counter1
   Close #1
end sub

sub cmdLoad_Click ()
   Dim strFn as string
   ' gets filename from user
   strFn = UCase$(Trim$(Inputbox$("Load as...", "Filename")))
   ' reads from file
   Open strFn for Binary Access Read as #1
   get #1, , counter1
   Close #1
end sub