home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / WINB30A.ZIP / RUNGEN.WBT < prev    next >
Encoding:
Text File  |  1991-02-17  |  653 b   |  12 lines
  1. ; Generic Macro  This macro pulls of a list of all macros and bat files
  2. ; and allows user to select one to run.
  3.  
  4. ActWin=WinGetActive()                  ;Get currently active Window
  5. DirChange(DirHome())                   ;Change to Home directory
  6. List=FileItemize("*.WBM *.WBT")        ;Get a list of all WBM and WBT files
  7. RunMe=ItemSelect("Select Macro/Batch",List," ")   ;Allow user to select one
  8. if RunMe=="" then exit                 ;Gee, nothing was selected
  9. WinActivate(ActWin)                    ;Activate original Window
  10. call(RunMe,"")                         ;And call our little file
  11. Exit                                   ;Bye Bye
  12.