Directory Dialog
This OCX shows the common directory dialog window.
Syntax: DirDlg.DirDlg(Message As String, Flags As Integer) As String
The flags are:

0=Desktop
1=Internet Explorer
2=Programs
3=Control Panel
4=Printers
5=My Documents
6=Favorites
7=StartUp
8=Recent
9=SendTo
10=Recycle Bin
11=Start Menu
12-15,28,>35=<Illegal Operation>
16=c:\windows\Desktop
17=Our Computer
18=Network Nieghborhood
19=NetHood
20=FONTS
21=ShellNew
22=c:\windows\allusers\start menu
23=c:\windows\allusers\start menu\programs
24=c:\windows\allusers\start menu\programs\startup
25=c:\windows\allusers\desktop
26=c:\windows\application data
27=c:\windows\printhood
29=StartUp
30=StartUp
31=c:\windows\allusers\favorites
32=Temporary Internet Files
33=Cookies
34=History

* Flags 12 to 15, 28 and above 35 cause an illegal operation on
my computer.  If anything different happens to you or you can
find extra flags, please e-mail me.

E.g.
DirDlg.DirDlg "Select a folder", 0 'shows the dialog with text
'saying "Select a folder" with the top item being Desktop

Note: it is a good idea to disable then enable the form with
the DirDlg command in-between.

Martin Allen 1999
http://www.martin2k.co.uk