' Get a free file number FileNum = FreeFile ' Create Test.txt Open App.Path & itemname.Text + ".txt" For Output As FileNum ' Write the contents of TextBox1 to Test.txt Write #FileNum, itemname.Text Write #FileNum, user.Text Write #FileNum, pass.Text Write #FileNum, commentbox.Text Write #FileNum, datebox.Text Write #FileNum, time.Text ' Close the file Close FileNum
Thanks for helping guys!

New Topic/Question
Reply



MultiQuote




|