home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / PCMAG / VOL10N06.ZIP / FLOPEX.WWD < prev    next >
Encoding:
Text File  |  1991-02-22  |  590 b   |  19 lines
  1. Sub MAIN
  2. REM:  Create a dialog record, called DRecord
  3. REM:  With fields to match those in the FileOpen Dialog Box
  4. Dim DRecord As FileOpen
  5. REM:  Now get the default values for those fields
  6. GetCurValues DRecord
  7. REM:  Set DRecord to look for all files
  8. DRecord.Name = "*.*"
  9. REM:  Highlight the first file in the list box
  10. SendKeys "{tab}{down}"
  11. REM:  If there is an error, jump to the last line 
  12. On Error Goto Skip
  13. REM:  And display the Dialog record
  14. Dialog DRecord
  15. REM:  Open the chosen file.
  16. Super FileOpen DRecord
  17. REM: The place to jump to in case of an error
  18. Skip: End Sub
  19.