How to write to a text file?

[teensicle]

here is the thing i want when i click store information it stores the data in a path i already created
i have this so far

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
If Dir("C:\Program Files\V-Phone Book", vbDirectory) = vbNullString Then
MkDir "C:\Program Files\V-Phone Book"
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\Program Files\V-Phone Book\Adress Book.txt")

End Sub

So what i need now is to link the text box so that when i click store it saves it in the path above.

[ramesh]

Open the txt file for output and then write the data to it.

Open "C:\Program Files\V-Phone Book\Adress Book.txt" For Output As #1

Print #1, strLine

Close #1

[ToxXxic]

I think a more structured approach would be:

Dim myPath as string ' make this a form global variable 
Dim myFile as string ' make this a form global variable 

Private Sub Form_Load()

 myPath="C:\Program Files\V-Phone Book"
 If Dir(myPath, vbDirectory) = vbNullString Then
	MkDir myPath
 End If
 myFile=myPath & "\Adress Book.txt"

 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objFile = objFSO.CreateTextFile(myFile)

End Sub


'on the button click event

 Dim F As Integer
 F = FreeFile
 Open myFile For Output As #F 
 Print #F, strLine ' where strLine is any text you wish to write.
 Close #F

You might want to check if the file already exists an take some appropriate action also