Varible not defined ???

Could someone explain to me what's wrong with this piece of code which should create a text file called user.txt and put whatever has been typed in a text box into the file. But when the program is run I get the compile error "Varible not defined", that is wrong with the code?

Dim dateiname as string, dateinr as Integer
DirPath = (App.Path & "\logon\")
dateiname = DirPath & "user.txt"
dateinr = FreeFile
Open dateiname for Output as dateinr
print #dateinr, txtUser.Text
Close dateinr



Jonathon.

Maybe

Dim DirPath as string

David Paulson

Thanks David

Jonathon.

Hi,
U can use the FileSystemObject to return a text stream object that can be read from or written to:

Dim fs,mf
set fs=CreateObject("Scripting.FileSystemObject")
set mf=fs.CreateTextFile("c:\textfile.txt,True)
mf.writeline("This is a sample text.")
mf.close

try the above code for creating a text file with the text.
Have a nice time
sunil.