home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999.iso / Top100sh / Macro / GrounC / data1.cab / Example_Files / Sample8.gc < prev   
Text File  |  1998-08-20  |  530b  |  23 lines
  1. If(FileExist("SysLog.txt"),GoTo(":DoTest"),GoTo(":Cont"))
  2.  
  3. :DoTest
  4. MessageBoxOkCancel("File 'SysLog.txt' exists.. Do you want to erase this file and continue?")
  5. If(ResponseOk(),GoTo("EraseFile"),MessageBox("Process Canceled"))
  6. GoTo(":TheExit")
  7.  
  8. :EraseFile
  9. RunDOSCommand("erase SysLog.txt")
  10. Delay(2000)
  11. GoTo("Cont")
  12.  
  13. :Cont
  14. LogSystem("SysLog.txt",DISK_C_SIZE)
  15. LogSystem("SysLog.txt",DISK_C_FREE)
  16. LogSystem("SysLog.txt",USER_NAME)
  17. LogSystem("SysLog.txt",SYSTEM_DIR)
  18. RunProgram("NotePad SysLog.txt")
  19.  
  20. :TheExit
  21.  
  22.  
  23.