home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / PROGRAM / WINB30A.ZIP / OPENALL.WBM < prev    next >
Encoding:
Text File  |  1991-02-17  |  753 b   |  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.