home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Demo / PCDUO / data1.cab / Script_Samples / ADDTOLOG.SCP next >
Encoding:
Text File  |  2003-11-28  |  734 b   |  21 lines
  1. // ADDTOLOG.SCP - Sample Script function for writing a log file
  2. // Copyright (c) 2000, Vector Networks Limited
  3. // All Rights Reserved
  4. //
  5. // Revision History:
  6. //  5.3 31-May-00 DB  - Separate log file code from STEST.SCP.
  7. //                   - Use FILE_APPEND instead of FILE_OVERWRITE.
  8.  
  9. Function AddToLog (FileName as String, MessageText as string)
  10.         If FileExists (FileName) then
  11.             Handle = Open (FileName, FILE_APPEND)
  12.         Else
  13.             Handle = Open (FileName, FILE_CREATE) 
  14.         Endif
  15.         If Handle != 0 Then
  16.             Print "Logging : ", MessageText
  17.             WriteLine Handle, Date (), " ", Time (), " : ", MessageText
  18.             Close (Handle)
  19.         Endif
  20. End Function
  21.