home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Shareware GOLD
/
NuclearComputingVol3No1.cdr
/
other
/
f1238
/
wfwdir.mac
< prev
Wrap
Text File
|
1991-04-20
|
1KB
|
48 lines
'To install this as your Autoexec macro: From a document
'created with NORMAL.DOT attached, type Alt-M E, "AutoExec", Alt-G (to make
'sure this is global), Enter (or OK), Ctrl-5 to select the default SubMain/
'Sub End pair Del to delete same, then paste the following in
'(or insert File...)
'Of course you will have to edit the directory names and path designations
'to fit your own system configuration.
Sub MAIN
Begin Dialog UserDialog 112, 70, 320, 144
GroupBox 8, 6, 202, 125, "Directory"
OptionGroup .Directory
OptionButton 16, 20, 90, 18, "MS Word"
OptionButton 16, 40, 90, 18, "Fiction"
OptionButton 16, 60, 90, 18, "Misc"
OptionButton 16, 80, 90, 18, "Quarter"
OptionButton 16, 100, 90, 18, "Stories"
OKButton 236, 35, 68, 21
CancelButton 236, 62, 68, 21
End Dialog
Dim dlg As UserDialog
On Error Goto Bye
Dialog dlg
On Error Goto bye
Select Case dlg.Directory
Case 0
ChDir "G:\MSW"
Case 1
ChDir "G:\MSW\Fiction"
Case 2
ChDir "G:\MSW\Misc"
Case 3
ChDir "G:\MSW\Fiction\Quarter"
Case 4
ChDir "G:\MSW\Fiction\Stories"
Case Else
Goto Bye
End Select
Dim lg As FileOpen
GetCurValues lg
Dialog lg
Super FileOpen lg
Bye:
End Sub