home *** CD-ROM | disk | FTP | other *** search
/ Windows Shareware GOLD / NuclearComputingVol3No1.cdr / apps / f1340 / openall.wbm < prev    next >
Text File  |  1991-02-17  |  753b  |  16 lines
  1. ; Openall -- Macro to tell Notepad to open with a *.* file listing instead of
  2. ; a *.TXT listing.  Handy.
  3.  
  4. WinActivate("Notepad")               ;Make sure Notepad is the active window
  5. sendkey("!FO")                       ;SendKeystrokes "ALT-F O"
  6. a=WinGetActive()                     ;Get the name of the active window
  7. if  (a=="Notepad") then goto oops    ;If its "Notepad" then an error occurred
  8. SendKey("*.*~")                      ;SendKeystrokes "*.* <ENTER>"
  9. exit                                 ;And then we are done
  10.  
  11. :oops                                ;Ooops, some kind of error, take a guess
  12.                                      ;Gotta save files before this works
  13. Display(5,"OPEN ALL","Save File Before using openall")   
  14. exit
  15.  
  16.