File Dialog Folder

[josros60]

Hi,

have the code below how can I modify to that instead listing the path (folder location) when i click prompt for selection prompt me to select folder.

Sub LISTFILES()
Dim MyFolder As String
Dim MyFile As String
Dim j As Integer
MyFolder = "C:\Users\jose.rossi\Documents\FOR POSTING\OCT 19\COGS\PEERLESS NETWORK\909_WESTEL"
MyFile = Dir(MyFolder & "\*.*")
a = 0
Do While MyFile <> ""
    a = a + 1
    Cells(a, 1).Value = MyFile
    MyFile = Dir
Loop
End Sub

thank you

 

[John_w]

Replace the MyFolder = line with this:

    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select folder"
        .InitialFileName = "C:\Users\jose.rossi\Documents\FOR POSTING\OCT 19\COGS\PEERLESS NETWORK\909_WESTEL"  'INITIAL FOLDER - CHANGE AS REQUIRED
        If .Show Then
            MyFolder = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With

 

[josros60]

Worked perfectly.



Thank you.