Vbform

[harshakusam]

Hi All,

I Created a form and now i want to add a command button and a text box
and then when user clicks on command button browse window should open and users can select the path and seleted path should be shown in text box.

Cheer's
Harsha

[mshmyob]

Assuming you have a form with a text box and a button.

Following code is in a module

Public Function fPickDirDialog(txtSelectedDir As String) As String
 
   ' Requires reference to Microsoft Office 12.0 Object Library.
 
   Dim fDirDialog As Office.FileDialog
 
   ' Set up the File Dialog to show only directories
   Set fDirDialog = Application.FileDialog(msoFileDialogFolderPicker)
 
   With fDirDialog
 
      ' Allow user to make a single selection in dialog box
      .AllowMultiSelect = False
 
      ' Set the title of the dialog box.
      .Title = "Please select a directory"
 
 
      ' Show the dialog box. If the .Show method returns True, the
      ' user picked at least one dir. If the .Show method returns
      ' False, the user clicked Cancel.
      If .Show = True Then
            ' return the directory and path chosen
            fPickDirDialog = .SelectedItems(1)
      Else
            fPickDirDialog = txtSelectedDir
      End If
   End With
End Function
 

Following code is in the OnClick event of your button:

If IsNull(Me.txtYourTextBox) Then Me.txtYourTextBox= "C:\"
Me.txtYourTextBox= fPickDirDialog(Me.txtYourTextBox)
 

cheers,

@harshakusam