home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Mother of All Windows Books
/
CD-MOM.iso
/
cd_mom
/
utility
/
lang
/
winbatch
/
rungen.wb_
< prev
next >
Wrap
Text File
|
1992-02-26
|
653b
|
12 lines
; Generic Macro This macro pulls of a list of all macros and bat files
; and allows user to select one to run.
ActWin=WinGetActive() ;Get currently active Window
DirChange(DirHome()) ;Change to Home directory
List=FileItemize("*.WBM *.WBT") ;Get a list of all WBM and WBT files
RunMe=ItemSelect("Select Macro/Batch",List," ") ;Allow user to select one
if RunMe=="" then exit ;Gee, nothing was selected
WinActivate(ActWin) ;Activate original Window
call(RunMe,"") ;And call our little file
Exit ;Bye Bye