Laat gebruiker bestand of map opgeven voor hyperlink

[Scripter]

Beste forumleden,

Ik zoek in VBA een mogelijkheid waarbij een gebruiker een bestands- of map locatie aangeeft door deze te selecteren en niet door deze zelf in te typen.
Met getopenfilename kan ik ze wel een bestand op laten geven, maar niet een map.
Doel is uiteindelijk om een indexbestand te kunnen maken waar gebruikers zelf hun link kunnen plaatsen naar een bestand OF een specifieke map.

Loop (zit) al een dag te zoeken, maar kan niks vinden. Is dit uberhaubt wel mogelijk?

Workaround zou zijn om ze een bestand te laten selecteren en dan aan te laten geven of het bestand of de map in de link willen opnemen. Zou wel werken, maar niet als het bestand in een submap van de gewenste map zit.

 

[edmoor]

Je kan een folder selecteren met Application.FileDialog(msoFileDialogFolderPicker). Bijvoorbeeld:

Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
    .Title = "Select a Folder"
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show <> -1 Then GoTo NextCode
    sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing

 

[Scripter]

Opgelost!

Dat is wel heel snel antwoord! Hier kan ik mee uit de voeten. Top bedankt!