2
Access VBA Dateidialog, Ordner anlegen und den neuen Ordnernamen als Variable speichern
Ein herzliches Hallo an Alle!
Ich versuche über den Dateidialog einen neuen Ordner anzulegen, der Ordner wird dann unter dem Namen den ich angegeben habe gespeichert.
Allerdings wird mir als Meldung immer der Pfad mit dem Ordner Namen "Neuer Ordner" angezeigt und nicht der Name unter dem ich den Ordner gespeichert habe.
Wie kann ich nun den von mir angegebenen Ordner Namen in eine Variable speichern ?
Außerdem, sobald man einen Namen für einen Ordner angegeben hat, wird dieser angelegt auch wenn man den Button "Abbrechen" benutzt.
Wie kann ich dass verbessern?
Anmerkung: Ich bin leider Anfänger
Ich folgenden Code:
Ich versuche über den Dateidialog einen neuen Ordner anzulegen, der Ordner wird dann unter dem Namen den ich angegeben habe gespeichert.
Allerdings wird mir als Meldung immer der Pfad mit dem Ordner Namen "Neuer Ordner" angezeigt und nicht der Name unter dem ich den Ordner gespeichert habe.
Wie kann ich nun den von mir angegebenen Ordner Namen in eine Variable speichern ?
Außerdem, sobald man einen Namen für einen Ordner angegeben hat, wird dieser angelegt auch wenn man den Button "Abbrechen" benutzt.
Wie kann ich dass verbessern?
Anmerkung: Ich bin leider Anfänger
Ich folgenden Code:
Private Sub OrdnerName_Click()
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Dim strStartPath As String
Set AppShell = CreateObject("Shell.Application")
strStartPath = "C:\Users\Verzeichnis\Documente\Test\"
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H100, (strStartPath))
On Error Resume Next
Pfad = BrowseDir.items().Item().path
If Pfad = "" Then Exit Sub
MsgBox Pfad
On Error GoTo 0
End Sub
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 348898
Url: https://administrator.de/contentid/348898
Ausgedruckt am: 25.11.2024 um 01:11 Uhr
2 Kommentare
Neuester Kommentar
Du klickst auf OK, solange du noch im Edit Modus für den Ordnername bist. Du musst also nachdem du den neuen Name geschrieben hast, erst einmal tatsächlich umbenennen (zB. indem du Enter drückst) und erst dann OK (oder ein zweites mal Enter).
Grüße
rubberman
Grüße
rubberman
1
Vielen Dank für die Antwort rubberman,
komme leider erst jetzt dazu zu antworten.
Auf Deinen Kommentar hin hatte ich die Idee, die Entertaste mit SendKeys "{ENTER}", True zu simulieren, damit man nicht erst Enter und dann ok klicken muss.
Hat leider nicht so geklappt wie ich dachte. Werde das anlegen des Ordners jetzt anders lösen.
Schade, ich fand den Dialog so schön.
Nochmal vielen Dank Grüße Luna
Ps. Hoffe dass ich die Bewertung richtig abgeben habe, kenne mich mit dem Forum leider noch nicht so gut aus.
komme leider erst jetzt dazu zu antworten.
Auf Deinen Kommentar hin hatte ich die Idee, die Entertaste mit SendKeys "{ENTER}", True zu simulieren, damit man nicht erst Enter und dann ok klicken muss.
Hat leider nicht so geklappt wie ich dachte. Werde das anlegen des Ordners jetzt anders lösen.
Schade, ich fand den Dialog so schön.
Nochmal vielen Dank Grüße Luna
Ps. Hoffe dass ich die Bewertung richtig abgeben habe, kenne mich mit dem Forum leider noch nicht so gut aus.
