home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD78987182000.psc / modLogfile.bas < prev    next >
Encoding:
BASIC Source File  |  2000-07-17  |  345 b   |  19 lines
  1. Attribute VB_Name = "modLogfile"
  2. Option Explicit
  3.  
  4. Public Sub AddtoLogFile(strText As String)
  5. Dim strFile As String
  6.  
  7. If bLog Then
  8.     If Right(strText, 2) = vbCrLf Then
  9.         strText = Left(strText, Len(strText) - 2)
  10.     End If
  11.     
  12.     Open strLogFile For Append As #1
  13.         Print #1, strText
  14.     Close #1
  15.  
  16. End If
  17. End Sub
  18.  
  19.