home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
WA
/
WA813.ZIP
/
WINBATCH
/
RUNGEN.WBT
< prev
next >
Wrap
Text File
|
1991-02-17
|
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