----------------------------------------------------------- New Message on BDOTNET
----------------------------------------------------------- From: mrp Message 5 in Discussion try this 'Open or a file for writing Dim strFileName As String = Replace(VB6.GetPath(), "\bin", "\Log\" & "ServerLog-" & Format(Now.Date, "MM-dd-yyyy") & ".TXT") 'Get a StreamReader class that can be used to read the file Dim objStreamWriter As StreamWriter If File.Exists(strFileName) = True Then '' IF Exists then append objStreamWriter = File.AppendText(strFileName) Else '''Create a new file objStreamWriter = File.CreateText(strFileName) End If 'Append the the end of the string, 'followed by the current date and time objStreamWriter.WriteLine(strMessage & ":" & DateTime.Now.ToString()) 'Close the stream objStreamWriter.Close() ----------------------------------------------------------- To stop getting this e-mail, or change how often it arrives, go to your E-mail Settings. http://groups.msn.com/BDotNet/_emailsettings.msnw Need help? If you've forgotten your password, please go to Passport Member Services. http://groups.msn.com/_passportredir.msnw?ppmprop=help For other questions or feedback, go to our Contact Us page. http://groups.msn.com/contact If you do not want to receive future e-mail from this MSN group, or if you received this message by mistake, please click the "Remove" link below. On the pre-addressed e-mail message that opens, simply click "Send". Your e-mail address will be deleted from this group's mailing list. mailto:[EMAIL PROTECTED]
