home *** CD-ROM | disk | FTP | other *** search
/ Windows Shareware GOLD / NuclearComputingVol3No1.cdr / _bbs3 / f1238.zip / WFWDIR.MAC < prev   
Text File  |  1991-04-20  |  1KB  |  48 lines
  1. 'To install this as your Autoexec macro: From a document
  2. 'created with NORMAL.DOT attached, type Alt-M E, "AutoExec", Alt-G (to make
  3. 'sure this is global), Enter (or OK), Ctrl-5 to select the default SubMain/
  4. 'Sub End pair Del to delete same, then paste the following in 
  5. '(or insert File...)
  6.  
  7. 'Of course you will have to edit the directory names and path designations
  8. 'to fit your own system configuration.
  9.  
  10.  
  11. Sub MAIN
  12. Begin Dialog UserDialog 112, 70, 320, 144
  13.     GroupBox 8, 6, 202, 125, "Directory"
  14.     OptionGroup .Directory
  15.     OptionButton 16, 20, 90, 18, "MS Word"
  16.     OptionButton 16, 40, 90, 18,  "Fiction"
  17.     OptionButton 16, 60, 90, 18, "Misc"
  18.     OptionButton 16, 80, 90, 18, "Quarter"
  19.     OptionButton 16, 100, 90, 18, "Stories"
  20.     OKButton 236, 35, 68, 21
  21.     CancelButton 236, 62, 68, 21
  22. End Dialog
  23. Dim dlg As UserDialog
  24. On Error Goto Bye
  25. Dialog dlg
  26. On Error Goto bye
  27. Select Case dlg.Directory
  28.     Case 0
  29.         ChDir "G:\MSW"
  30.     Case 1
  31.         ChDir "G:\MSW\Fiction"    
  32.     Case 2
  33.         ChDir "G:\MSW\Misc"    
  34.     Case 3
  35.         ChDir "G:\MSW\Fiction\Quarter"
  36.     Case 4
  37.         ChDir "G:\MSW\Fiction\Stories"
  38.     Case Else
  39.         Goto Bye
  40. End Select
  41. Dim lg As FileOpen
  42. GetCurValues lg
  43. Dialog lg
  44. Super FileOpen lg
  45. Bye:
  46. End Sub
  47.  
  48.