Browse for folder

[rpaulson]

my current code uses this.

 fpath = ThisWorkbook.Path

Later in my code I use this path to import some txt files.
This works fine as long as the text files are in the same folder as my excel file.

I would like to have some sort of browse where the user can select the path.

ie. fpath = input (Browse for the location on the files")

Anyone have any ideas?


Ross

 

[kpark91]

strPath = InputBox("type in path")

or

    ' Requires reference to Microsoft Office 11.0 Object Library.
    Dim fDialog As Office.FileDialog
    Dim varFile As Variant
    Dim strFolderPath As String
    
    ' Set up the File Dialog
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    
    With fDialog
        '.InitialFileName = ThisWorkbook.Path
        ' Allow user to make multiple selections in dialog box
        .AllowMultiSelect = False
        
        ' Set the title of the dialog box.
        .Title = "Please select one folder to save data file in"
    
        ' Clear out the current filters, and add our own.
        .Filters.Clear
    
        ' Show the dialog box. If the .Show method returns True, the
        ' user picked at least one file. If the .Show method returns
        ' False, the user clicked Cancel.
        If .Show = True Then
            strPath = .SelectedItems(1)
        End If
    End With
    
    ' Freeing Object Variables
    Set fDialog = Nothing

 

[rpaulson]

Txs,

Looks like that works