Programming Forums - View Single Post - Noob Question

Pizentios · Aug 27th, 2004, 9:10 AM

If you are needing to save a variable to disk as a file, add this function to your project (cut & paste) and then use the example below for how to call it.

(Toggle Plain Text)

Private Function SaveFile(txtFile, ByVal MyText As String)
  Dim FileNum As Integer

  FileNum = FreeFile()

  Open txtFile For Output As FileNum
  Print #FileNum, MyText;
  Close FileNum
End Function

Say your variable containing data you want saved was named

(Toggle Plain Text)

strVarA

You would use like so:

(Toggle Plain Text)

SaveFile "D:\File.txt", strVarA

You do not need to use a variable in place of strVarA, you can just put the text you want to save inside of quotes.

(Toggle Plain Text)

SaveFile "D:\File.txt", "This is the contents of File.txt"

Aug 27th, 2004, 9:10 AM	#2
Pizentios Programming Guru Join Date: May 2004 Location: Brandon, Manitoba, Canada Posts: 2,023 Rep Power: 7	If you are needing to save a variable to disk as a file, add this function to your project (cut & paste) and then use the example below for how to call it. (Toggle Plain Text) Private Function SaveFile(txtFile, ByVal MyText As String) Dim FileNum As Integer FileNum = FreeFile() Open txtFile For Output As FileNum Print #FileNum, MyText; Close FileNum End Function Private Function SaveFile(txtFile, ByVal MyText As String) Dim FileNum As Integer FileNum = FreeFile() Open txtFile For Output As FileNum Print #FileNum, MyText; Close FileNum End Function Say your variable containing data you want saved was named (Toggle Plain Text) strVarA strVarA You would use like so: (Toggle Plain Text) SaveFile "D:\File.txt", strVarA SaveFile "D:\File.txt", strVarA You do not need to use a variable in place of strVarA, you can just put the text you want to save inside of quotes. (Toggle Plain Text) SaveFile "D:\File.txt", "This is the contents of File.txt" SaveFile "D:\File.txt", "This is the contents of File.txt" __________________ Profanity is the one language that all programmers understand. Check out my Blog <---updated Nov 30 2007!