Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Access VBA Dateidialog, Ordner anlegen und den neuen Ordnernamen als Variable speichern

Mitglied: Luna01

Luna01 (Level 1) - Jetzt verbinden

12.09.2017 um 21:24 Uhr, 389 Aufrufe, 2 Kommentare, 1 Danke

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:

01.
Private Sub OrdnerName_Click() 
02.
    Dim AppShell As Object 
03.
    Dim BrowseDir As Variant 
04.
    Dim Pfad As String 
05.
    Dim strStartPath As String 
06.
    Set AppShell = CreateObject("Shell.Application") 
07.
    strStartPath = "C:\Users\Verzeichnis\Documente\Test\" 
08.
    Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H100, (strStartPath)) 
09.
    On Error Resume Next 
10.
    Pfad = BrowseDir.items().Item().path 
11.
    If Pfad = "" Then Exit Sub 
12.
    MsgBox Pfad 
13.
    On Error GoTo 0 
14.
End Sub
Mitglied: rubberman
LÖSUNG 12.09.2017, aktualisiert um 22:07 Uhr
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
Bitte warten ..
Mitglied: Luna01
13.09.2017 um 16:27 Uhr
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.
Bitte warten ..
Ähnliche Inhalte
Visual Studio
Variabler Ordnername VB.Net
gelöst Frage von Tealk144Visual Studio12 Kommentare

Servus, also ich habe einen Ordner an dem immer ein Datum angehängt ist, diesen Variablen namen müsste ich irgendwie ...

Basic

VBA Access Variable an Query Kriteria weitergeben

Frage von EverestBasic1 Kommentar

Hallo Access-Experten, kann jemand mir bitte erklären wie ich eine Variable aus einem Formular (über VBA) an Query Kriterien ...

Outlook & Mail

Outlook vba Email Anhang in Ordner speichern

gelöst Frage von DaywalkercxpOutlook & Mail3 Kommentare

Liebe Community, Ich bin am verzweifeln, da ich einfach nicht auf die Lösung komme. Daher hoffe ich das es ...

Batch & Shell

Mehrere Ordnernamen auslesen und in eine Variable schreiben

gelöst Frage von schmithoBatch & Shell5 Kommentare

Hallo zusammen, ich versuche verzweifelt eine Lösung eines Problems zu finden, wie ich den Namen mehrere Ordner in eine ...

Neue Wissensbeiträge
CPU, RAM, Mainboards
Neverending story
Tipp von keine-ahnung vor 1 StundeCPU, RAM, Mainboards

Da kommt man mit dem fixen gar nicht mehr hinterher und die CPU erreichen wieder Rechenleistungen im Bereich des ...

Multimedia & Zubehör
AVM Fritz USB WLAN Sticks schneller einschalten
Tipp von NetzwerkDude vor 1 TagMultimedia & Zubehör4 Kommentare

Die AVM Fritz WLAN Sticks haben in der Firmware 2 Modis: Einmal als Massenspeicher und einmal als WLAN Netzwerkkarte ...

Windows Server

Windows Server Backup schlägt fehl - Lösung 2008-2016

Tipp von BiGnoob vor 1 TagWindows Server

Hi zusammen , ich möchte gerne einen Lösungstipp abgeben für folgenden Fehler: Lösung ist folgende:

Humor (lol)
Telekom vs. O2 - 3:2
Erfahrungsbericht von the-buccaneer vor 2 TagenHumor (lol)4 Kommentare

Unglaublich aber wahr: Nachdem mein privater Anschluss am 19.04.18 auf VOIP und VDSL umgestellt wurde, hatte ich seitdem 1,5 ...

Heiß diskutierte Inhalte
PHP
Nach Umzug zu 1und1 bekomme ich beim Eintrag in die DB Tabelle folgenden Fehler
Frage von jensgebkenPHP32 Kommentare

INSERT command denied to user 'dbo45342345342231244'@'112.127.102.073' for table 'orders'

Windows Server
Windows Server 2012 - Update - Beim Booten bleibt der Server beim Windows Zeichen stehen
Frage von KeilbachWindows Server17 Kommentare

Hallo Zusammen, ich grüße euch, mein Name ist Michele. Ich bin hier ganz Neu - da ich einfach nicht ...

Windows Server
2003er RDS Server lässt alten ThinClient nach Updates nicht mehr anmelden
Frage von KnorkatorWindows Server9 Kommentare

Hallo zusammen, wir hatten die Aufgabe, ein System (keine Domänenanbindung) zu virtualisieren welches mehrere Jahre keine Updates gesehen hat. ...

Peripheriegeräte
APC Smart-UPS - Diverse Fragen bzgl. Batterie und Konfiguration
Frage von vBurakPeripheriegeräte8 Kommentare

Hallo, nach wiederholendem Stromausfall beim Kunden habe ich Zweifel, dass die Konfiguration der USV richtig ist. Um es kurz ...