OCX for folder view

[amolt]

Hi hrxx,

You can display folder view dialog by refering to Microsoft Shell Controls and Automation (Shell32.dll) library in visual basic 6.0

eg:

Private Sub Command1_Click()
    'Microsoft Shell Controls and Automation (Shell32.dll)
    Dim shView As Shell
    Dim foldItem As FolderItem
    Set shView = New Shell
    Set foldItem = shView.BrowseForFolder(Me.hWnd, "Select Folder",       ssfPROGRAMFILES)
    If Not foldItem Is Nothing Then
        MsgBox foldItem.Name
    End If
End Sub

The same thing is achieved by api call too.
Which folder you want to displayed is specified in Options and these starts from ssf*

Hope it helps ,,