Bijlage toevoegen userform incl. hyperlink verwijzing

[carloschouw]

Goedemorgen!

Ik heb een vraag over het toevoegen van een bijlage in een userform. Momenteel gebruik ik deze code om een bijlage toe te voegen aan de userform:

Private Sub CommandButton21_Click()

Dim myfilepath As String
myfilepath = Application.GetOpenFilename()
Label2.Caption = myfilepath

End Sub

So far so good. Deze code geeft je 'de vrijheid' om een bijlage te selecteren van iedere map uit jouw bestand. Nu zou ik eigelijk willen dat men verwezen wordt naar een specifieke map (in dit geval een online server) om daar altijd de bijlage te selecteren.

Nu heb ik geen idee hoe je een verwijzing kunt maken naar die specifiek map waar men naar toe verwezen wordt om een bijlage te selecteren. Ik dacht in eerste instantie om zoeits dergelijks in te zetten maar dat werkt niet:

Private Sub CommandButton19_Click()

Dim myfilepath As String
myfilepath = Application.GetOpenFilename("http://abc.com/")
Label1.Caption = myfilepath

End Sub

De bedoeling is dat men dus, tijdens het selecteren van 'een bijlage toevoegen' optie eerst verwezen wordt naar de map waar de bijlage in opgeslagen wordt. Vanuit daar de bijlage te selecteren.

Heeft iemand een idee hoe ik dat zou kunnen toepassen?

 

[Timshel]

FileDialog heeft meer mogelijkheden

Private Sub CommandButton19_Click()
    Dim MyFilePath As String
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .InitialFileName = "I:\"
        .Title = "Selecteert u maar"
        If .Show Then
            MyFilePath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    Label1.Caption = MyFilePath
End Sub

 

[carloschouw]

Getest en het werkt super!

Was precies wat ik zocht. Erg bedankt voor je hulp.

Groet, Carlo

 

[HSV]

Private Sub CommandButton19_Click()
 With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .InitialFileName = "I:\"
        .Title = "Selecteert u maar"
      If .Show Then Label1.Caption = .SelectedItems(1)
 End With
End Sub