Contents:
---------

- About this program.
- How to install.
- Commands list.
- Example.
- History.
- Distribution and status.
- Comments and bugs.
- About the Author.



About this program.
-------------------

This program is an ActiveX Control which will show the Browse for
directory dialog then return the path which is selected.



How to install.
---------------

Copy the ocx and oca file to system directory. Then type in the Run windows the following command:

	regsvr32 C:\Windows\System\Browsedlg.ocx



If you want to uninstall this ActiveX control, type the following command in the run window:

	regsvr32 /u C:\Windows\System\Browsedlg.ocx

then delete the Systray.ocx and Systray.oca



Command list.
-------------

- Comments.
	To show the comments string in the browse dialog forms.
- hWndOwner.
	To set the parent window.
- BrowseFld.
	To show the browse dialog.



Example.
--------

'----------------------------------
'These codes needs 3 command buttons
'----------------------------------
Option Explicit

Private Sub cmdFolders_Click()
  Dim strPath As String
  
  BrowseDlg.Comments = "Folders:"
  BrowseDlg.hWndOwner = Me.hWnd
  strPath = BrowseDlg()
  
  If strPath <> "" Then
    MsgBox "Directory clicked: " & vbCrLf & vbCrLf & _
                                " " & strPath, , "Test BrowseDlg..."
  Else
    MsgBox "Directory clicked: " & vbCrLf & vbCrLf & _
                                " Nothing.", , "Test BrowseDlg..."
  End If
End Sub

Private Sub cmdPrinters_Click()
Dim sPath As String

BrowseDlg.Comments = "Printers:"
BrowseDlg.hWndOwner = Me.hWnd
sPath = BrowseDlg(CSIDL_PRINTERS, BIF_BROWSEFORPRINTER)

If sPath <> "" Then
  MsgBox "Directory clicked: " & vbCrLf & vbCrLf & _
                              " " & sPath, , "Test BrowseDlg..."
Else
  MsgBox "Directory clicked: " & vbCrLf & vbCrLf & _
                              " Nothing.", , "Test BrowseDlg..."
End If
End Sub

Private Sub cmdPrograms_Click()
Dim sPath As String

BrowseDlg.Comments = "Programs in the start menu:"
BrowseDlg.hWndOwner = Me.hWnd
sPath = BrowseDlg(CSIDL_PROGRAMS, BIF_BROWSEINCLUDEFILES)

If sPath <> "" Then
  MsgBox "Directory clicked: " & vbCrLf & vbCrLf & _
                              " " & sPath, , "Test BrowseDlg..."
Else
  MsgBox "Directory clicked: " & vbCrLf & vbCrLf & _
                              " Nothing.", , "Test BrowseDlg..."
End If
End Sub

'<-- Copy and paste these codes -->



History.
--------

Version 1.0.0

- Comments
- hWndOwner
- BrowseFld


Version 1.1.0

- Add flags and CSID for BrowseFld.


Version 1.1.1

- Fixes bug in BrowseFld.



Distribution and status.
------------------------

This program is freeware. It means that you can copy, use and distribute this program as much as you like, as long as it is not intended for commercial purposes.



For comments and bugs:
----------------------

Send email to ebedsat@telkom.net. 
Please write in the subject area the name of this program.



About The Author.
-----------------

Ebed Soedjatmoko.
SEMARANG, INDONESIA

Email: ebedsat@telkom.net