Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner erstellen, Befehl vereinfachen

Forumthread: Ordner erstellen, Befehl vereinfachen

Ordner erstellen, Befehl vereinfachen
31.07.2007 16:26:10
mtremer
Hallo Excel-Freunde,
mit folgendem (umständlichen) Code erstelle ich einen Ordner:
If Dir("P:\Ordner1", vbDirectory) = "" Then
MkDir "P:\Ordner1"
End If
If Dir("P:\Ordner1\Ornder2", vbDirectory) = "" Then
MkDir "P:\Ordner1\Ornder2"
End If
If Dir("P:\Ordner1\Ornder2\Ordner3", vbDirectory) = "" Then
MkDir "P:\Ordner1\Ornder2\Ordner3"
End If
Kann ich das nicht in einem Befehl machen, um "P:\Ordner1\Ornder2\Ordner3" zu erstellen, sofern es noch nicht existiert?
Nach mehrmaligen Versuchen musste ich leider drei Befehle daraus machen, weil er den dritten Befehl alleine nicht ausführen wollte.
Danke.
Viele Grüße
Marco

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
MakeSureDirectoryPathExists
31.07.2007 16:32:00
sergiesam
hi,
verwende die API-Funktion
Private Declare 

Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long



Sub test()
MakeSureDirectoryPathExists "C:\Test\Test\Test\blabla\"
End Sub



lg,

Sam
Anzeige
AW: MakeSureDirectoryPathExists
31.07.2007 16:51:04
mtremer
Hallo Sam,
danke für die schnelle Antwort.
Wie kann ich das aber in meinen existierenden Code einbauen?
Ich habe leider nicht so viel Ahnung...
Danke.
Viele Grüße
Marco

AW: MakeSureDirectoryPathExists
31.07.2007 17:21:00
sergiesam
hi,
in dem Modul, wo dein Code steht kopierst du die Deklaration
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
(wahrscheinlich nach Option Explicit - wenn du die Variablendeklaration erzwingst)
und dann kannst du an der stelle, wo du das Verzeichnis anlegen willst, die Funktion verwenden.
Sieh dir dazu auch das Beispiel an:
https://www.herber.de/bbs/user/44636.xls
lg, Sam

Anzeige
AW: MakeSureDirectoryPathExists
31.07.2007 17:57:48
mtremer
Hallo Sam,
klasse, genau so habe ich mir das vorgestellt.
Danke für Deine Hilfe.
Marco
P.S.: Deine Beispieldatei ist super ;-)
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige