home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BUG 2
/
BUGCD1997_01.iso
/
utils
/
winbatch
/
openall.wb_
< prev
next >
Wrap
Text File
|
1992-02-26
|
753b
|
16 lines
; Openall -- Macro to tell Notepad to open with a *.* file listing instead of
; a *.TXT listing. Handy.
WinActivate("Notepad") ;Make sure Notepad is the active window
sendkey("!FO") ;SendKeystrokes "ALT-F O"
a=WinGetActive() ;Get the name of the active window
if (a=="Notepad") then goto oops ;If its "Notepad" then an error occurred
SendKey("*.*~") ;SendKeystrokes "*.* <ENTER>"
exit ;And then we are done
:oops ;Ooops, some kind of error, take a guess
;Gotta save files before this works
Display(5,"OPEN ALL","Save File Before using openall")
exit