Ich habe einen Code, um ein Dialogfeld zum Auswählen eines Ordnernamens und zum Anzeigen des Ordnernamens zu erhalten, den der Benutzer auswählt.

Aber wenn der Benutzer versucht, "Abbrechen" anstelle von "Ordnerpfad" und "OK" auszuwählen, wird ein Fehler ausgegeben.

Als Ergebnis meiner Beobachtungen habe ich eine Statusvariable verwendet und festgestellt, dass sich der Status nach dem Abbrechen in -1 ändert. Daher habe ich versucht, den Code im Kommentarbereich mit einer if-Bedingung zu implementieren, um das Sub zu beenden.

Aber das scheint bei der Auswahl eines Ordners nicht zu funktionieren, wenn der kommentierte Teil im Code vorhanden ist.

Ohne dass es gut funktioniert bei der Auswahl eines Ordners.

Kann jemand bitte helfen? Es ist ein kleiner Schritt, ich verpasse etwas:

  sub abc()
     Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
        diaFolder.AllowMultiSelect = False
        diaFolder.Title = "Select a folder then hit OK"
        diaFolder.Show
        'Status = diaFolder.Show
        'If Status < 0 Then
        'Exit Sub
        'End If
        a = diaFolder.SelectedItems(1)

        MsgBox ("Folder selected is :" & a)
    ens sub