Ability to select a folder path

[tlove]

Hi Everyone,

I am working in VB6 and am trying to get code that would allow a user to select a folder path. I was using the OpenFileDialog control but it doesn't work for selecting folders, only if you want to select a file.

There was someone on here before who mentioned he was able to accomplish by using an OCX called DPDLG...so I know it works somehow but I am not sure how this is done.

If anyoen could provide any help...any sample code...it would be greatly appreciated.

[albertw]

Hi Everyone,

I am working in VB6 and am trying to get code that would allow a user to select a folder path. I was using the OpenFileDialog control but it doesn't work for selecting folders, only if you want to select a file.

There was someone on here before who mentioned he was able to accomplish by using an OCX called DPDLG...so I know it works somehow but I am not sure how this is done.

If anyoen could provide any help...any sample code...it would be greatly appreciated.

hi

seems nasty, try using a dirlistbox for a change and have the clicked directory displayed in a label or textbox

[tlove]

hi

seems nasty, try using a dirlistbox for a change and have the clicked directory displayed in a label or textbox

Thank you very much for your help! Using the dirlistbox solved the problem. I appreciate it.

[Killer42]

Thank you very much for your help! Using the dirlistbox solved the problem. I appreciate it.

I see you have what you wanted. But for you or anyone else who is looking for alternatives, you might try the following links. I believe it is possible to use the standard Windows selection dialogue, which generally provides a nicer user experience than a dirlistbox. Hopefully, one or more of these will show how (haven't had time to check them out yet).

• how to select folder using commondialog in visual basic
• Display a select folder dialog box in VB6
• Browse For Folder VBA - The Code
• Folder Browsing Control

[albertw]

hi

display a select folder dialog is actually a great solution

make a reference in your code to shell32.dll (system32)
put

 
Private shlShell As Shell32.Shell
Private shlFolder As Shell32.Folder
Private Const BIF_RETURNONLYFSDIRS = &H1
 
 

in your general declaration

and use

 
Set shlShell = New Shell32.Shell
Set shlFolder = shlShell.BrowseForFolder(Me.hWnd, "Select a Folder",BIF_RETURNONLYFSDIRS)
 
 

to call the folder dialog
simple but functional

[samycbe]

hi

how to add the dirlist component in the project?.........

[Killer42]

how to add the dirlist component in the project?.........

In VB6, the DirListBox control is one of the standard ones - it doesn't need to be added to the project. In the toolbox, it's a yellow folder icon.

(Possibly it's only available in the Professional and Enterprise Editions, but I don't think so.)

[SanjuMtr]

Hi Everyone,

I am working in VB6 and am trying to get code that would allow a user to select a folder path. I was using the OpenFileDialog control but it doesn't work for selecting folders, only if you want to select a file.

There was someone on here before who mentioned he was able to accomplish by using an OCX called DPDLG...so I know it works somehow but I am not sure how this is done.

If anyoen could provide any help...any sample code...it would be greatly appreciated.

Hello,
You can solve your Problem using your in build control.rather then using
API call.I am using Drivelist,Dirlist form control and using a label to select a folder.however in VB 2005 we can browse folder like file but in vb 6 we don't.
All though I have coded this sample in VB 2005. you can use it in vb 6 with some changes
VB 2005 CODE SAMPLE.

Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged
        DirListBox1.Path = DriveListBox1.Drive
        Label1.Text = DirListBox1.Path
    End Sub
 
 
 
    Private Sub DirListBox1_Change(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.Change
        Label1.Text = DirListBox1.Path
    End Sub
 

Ok buddy I write the VB 6 code.

Private Sub Dir1_Change()
 Label1.Caption = Dir1.Path
End Sub
 
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Label1.Caption = Dir1.Path
End Sub
 

I think this code fulfill your requrement .Good luck.