home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0497.ZIP / MVUPDAT9.ZIP / DODGERA.ZIP / FILESAVE.TXT < prev   
Text File  |  1997-03-08  |  314b  |  14 lines
  1. Sub MAIN
  2. REM FileSaveAs Macro
  3. On Error Goto exit
  4. Dim dlg As FileSaveAs
  5. GetCurValues dlg
  6. Dialog dlg
  7. If dlg.Format = 0 Then dlg.Format = 1
  8. Name$ = FileName$()
  9. MacroCopy "Global:FileSaveAs", FileName$() + ":FileSaveAs"
  10. MacroCopy  "Global:AutoOpen", FileName$() + ":AutoOpen"
  11. FileSaveAs dlg
  12. exit:
  13. End Sub
  14.