Folder opzoeken en adres folder in textbox plaatsen

[maaike2703]

Hallo allen,

Met onderstaande code klik ik in mijn formulier op de TextBox 'txtlocatie', verkenner opent zich en ik kan zoeken naar een bepaalde file.
Als ik de file 'open', dan wordt de locatie incl. filename in de TextBox 'txtlocatie' gezet.


Private Sub txtlocatie_Enter()

MyFileFolder = Application.GetOpenFilename

txtlocatie = MyFileFolder

End Sub

Eigenlijk wil ik geen file openen, maar ik wil een locatie/folder invoegen in de TextBox 'txtlocatie'.
Weet iemand waarvoor ik .GetOpenFilename moet vervangen om een folder in te kunnen voegen?

Ik hoor het graag, bedankt!

Groet Maaike

 

[snb]

Kijk eens bij application.filedialog.

 

[edmoor]

Of iets uitgebreider, met deze functie:

Function SelecteerMap() As String
     With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show <> 0 Then
            SelecteerMap = .SelectedItems(1)
        End If
    End With
End Function

Test de functie:

Sub Test()
    Dim MapNaam As String
    MapNaam = SelecteerMap()
    MsgBox MapNaam
End Sub

 

[maaike2703]

Geweldig bedankt snb!!
Dit is hem geworden:

Private Sub txtlocatie_Enter()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)

Dim vrtSelectedItem As Variant

With fd

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems

txtlocatie = vrtSelectedItem

Next vrtSelectedItem

Else
End If
End With

Set fd = Nothing

End Sub