Saving to a .txt file

[PanasonicSubz]

yeah whats the code for saving a txt file? you no where you go File|Save. thanks

PanasonicSubz

Using this code, you open (if exists) or create (if it doesn't) Test.txt file in an Application folder, enter some values and save the file:


private Sub Command1_Click()
Dim intFileNumber as Integer
Dim lngPosition as Long
intFileNumber = FreeFile
Open App.Path & "\Test.txt" for Output lock Read Write as #intFileNumber

Write #intFileNumber, "It works", "Hello, World"
Close #intFileNumber
End Sub



Vlad

[FStocker]

Private Sub Write_to_File()
Open "C:\TEST.TEXT" For Append As #1
Print #1, "Test"
Close #1
End Sub

[smalig]

How to save a text file from a textbox in one call.

http://vbcode.webhostme.com/en/code.asp?id=58



smalig@hotmail.com
http://vbcode.webhostme.com/