Creating a text file

[JonathonC]

I have 2 text boxs and a command button on a form, when the button is clicked I want "whatever_has_been_typeded_in_the_first_text_box.txt" to be created. Also the contents of the second text box I want to be put into the text file. I then want the file to be saved to the directory, C:\text
Thanks,

Jonathon.

 

[DougP]

Open "C:\text\" & Textbox1 & ".txt" for output as #1
Print #1, Textbox2
Close
DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive

 

[bateman23]

Hi,

..but if the path doesn't exist you have to do it like that,
otherwise a runtime-error will occur :

Dim dateiname As String, dateinr As Integer
DirPath = "C:\text\"
dateiname = DirPath & textbox1.Text & ".txt"
'Check if path exists and create
If Dir$(DirPath & "\.&quot = "" Then
MkDir (DirPath)
End If
'go on writing the file
dateinr = FreeFile
Open dateiname For Output As dateinr
Print #dateinr, textbox2.Text
Close dateinr
'eyerything done
MsgBox "File saved to " & dateiname
End Sub


bateman23
...visit me @:

http://www.daniel-purucker.de/digital/

 

[JonathonC]

Thanks you two, in the end I used Bateman23's code.

Jonathon.