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

Frage Microsoft Microsoft Office

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, 329 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
Batch & Shell
Neu erstellten Ordner als Variable speichern
gelöst Frage von mqlmannBatch & Shell2 Kommentare

Hallo, ich habe folgendes Problem: mittels md C:\Users\Username\Desktop\"%date% %stunde%h%minute%m%sekunde%s _Ordnername" erstelle ich am Anfang eines BATCH-Sriptes eine neuen Ordner, der ...

Batch & Shell
Aus einer Datei eine Zeile finden und mit dem text einen neuen Ordner anlegen Ordnernamen ändern
Frage von Jamesb10Batch & Shell14 Kommentare

Hallo zusammen Da ich nicht besonders gut mit der shell zurecht komme hoffe ich auf eure Unterstützung. Die datei/en ...

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 ...

Neue Wissensbeiträge
Datenschutz

Teamviewer kommt für IoT-Geräte wie den Raspberry Pi

Information von magicteddy vor 3 StundenDatenschutz

Moin, jetzt werden IoT Geräte endgültig zur Wanze? Anscheinend kann man auf einem Dashboard seine Geräte visualisieren Ich stelle ...

Microsoft

Letzte Updates für Win10 und Server2016 müssen bei Bedarf über den Update catalogue in den WSUS importiert werden!

Tipp von DerWoWusste vor 8 StundenMicrosoft1 Kommentar

automatisch kommt da nichts an im WSUS und auch nicht im SCCM. Siehe Hinweise zum Bezug der jeweils neuesten ...

Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 3 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 3 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Preis für Wartungsvertrag ok?
gelöst Frage von a-za-zNetzwerkmanagement21 Kommentare

Hallo! Mal ne Frage, weil ich mich mit dem akzeptablen Preis für einen Reaktionszeitvertrag nicht auskenne. Meine Firma hat ...

Windows Netzwerk
Ist ein Portforwarding auf einen PC ohne lauschendes Programm ein (großes) Sicherheitsproblem?
Frage von PluwimWindows Netzwerk13 Kommentare

Hallo zusammen, zur Fernwartung eines Rechners an einem anderen Ort nutze ich VNC. Da dieser Rechner einfach nur eine ...

SAN, NAS, DAS
Wer kennt sich mit QNAP und CISCO aus ?
gelöst Frage von MachelloSAN, NAS, DAS10 Kommentare

Hallo Zusammen hier im Forum, Ich habe ein QNas 451+ und dieses NAS hat zwei GBit Lan Adapter die ...

Windows Server
Terminal Server 2016 erkennt Berechtigungen nicht
gelöst Frage von Thomas2Windows Server10 Kommentare

Hallo Administratoren, folgendes Problem stellt sich dar: Es gibt zwei Windows Server 2016, die als Terminal Server fungieren. Jetzt ...