Browse Dialog Box

[tobyhutton1234]

Hi There,

I have a button (browseMain) that brings up a File Browse Dialog box.
When i have selected the file i need the file location into the textbox (browseBox) next to the button.

Any ideas how this is done

Thanks

 

[schielrn]

Can you post the part of the code that you are using for the file browse dialog box adn the variable you are setting it to?

 

[tobyhutton1234]

Here is my code

browseMain is the name of the button where once clicked the browse dialog shows

Private Sub browseMain_Click()
 
Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
Filter = "View All Files (*.*),*.*," & _
         "Microsoft Excel Spreadsheet (*.xls),*.xls," & _
         "Microsoft WWord Document (*.doc),*.doc,"

FilterIndex = 3
Title = "Select a File to Open"
ChDrive ("I")
ChDir ("I:\Documents")
With Application
    Filename = .GetOpenFilename(Filter, FilterIndex, Title)
    ChDrive (Left(.DefaultFilePath, 1))
    ChDir (.DefaultFilePath)
End With
 
End Sub

The text where the selected file should end up is called 'browseBox'

Thanks

 

[schielrn]

Are you wanting just the file path without the file name in that textbox? I assume it would be something similiar to:

browseBox.text = filename

or if you want just the path:

browseBox.text = left(filename,instrrev(filename,"\"))

Hope that helps.

 

[tobyhutton1234]

I'm looking for the file path then \<filename>

Thanks

 

[tobyhutton1234]

sorry should be file path \ file name

 

[schielrn]

I modified my last post, see if the last piece works for you, you may have to change .text to .value, its been a while since I have worked with textboxes and I don't have access to Excel at the moment to test it.

 

[schielrn]

sorry should be file path \ file name

That should be what filename is returning, correct?

Just set the textbox to that value?

 

[tobyhutton1234]

browseBox.=Value = Filename works perfect.

Thanks