Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1964to1968
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pfad inkl. Unterverzeichnisse in einem Schritt erstellen

Pfad inkl. Unterverzeichnisse in einem Schritt erstellen
15.02.2024 17:00:40
JBR
Hallo,

bin mal wieder am verzweifeln.

Ich möchte gerne mit "MkDir" ein nicht vorhandenes Verzeichnis erstellen.
Beispiel:
Das nicht vorhandene Verzeichnis “C:\Temp\Test“ lässt sich nur erstellen, wenn es das Verzeichnis C:\Temp gibt.

Ich würde gerne in einem Schritt mehrere Unterverzeichnisse erstellen können, wenn diese nicht vorhanden sind.

Viele Grüße,
Jörg




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

Betreff
Datum
Anwender
Anzeige
AW: Pfad inkl. Unterverzeichnisse in einem Schritt erstellen
15.02.2024 17:52:50
daniel
Hi
wenn es in einem Schritt gehen soll, müsstest du die Windows-API-Funktion MakeSureDirectoryPathExists anwenden.
im Netz sollte es genügend Codebeispiele geben, wie man diese in Excel verwenden kann, einfach mal nach diesen beiden Begriffen suchen.
https://www.ms-office-forum.net/forum/showthread.php?t=334949

Gruß Daniel
AW: Pfad inkl. Unterverzeichnisse in einem Schritt erstellen
16.02.2024 12:36:50
daniel
Hi
warum nicht mehrstufig?
die API-Funktionen einzubinden ist jetzt nicht unbedingt "Basiskenntnisse"

die Schleife, um das ganze mehrstufig mit MkDir zu erledigen, ist jetzt auch nicht viel aufwendiger als das Einbinden der APIs

Dim i As Long

Dim Pfad As String
Pfad = "C:\aaa\bbb\ccc\" 'immer mit Backslash am ende

For i = 4 To Len(Pfad) - 1
If Mid(Pfad, i + 1, 1) = "\" Then If Dir(Left(Pfad, i), vbDirectory) = "" Then MkDir Left(Pfad, i)
Next


Gruß Daniel
Anzeige
AW: Pfad inkl. Unterverzeichnisse in einem Schritt erstellen
15.02.2024 19:27:03
JBR
Hallo Daniel,

vielen Dank für die schnelle Rückmeldung. Ich werde es sofort ausprobieren.

Viele Grüße,
Jörg
AW: Pfad inkl. Unterverzeichnisse in einem Schritt erstellen
15.02.2024 20:10:21
volti
Hallo Jörg,

die vorgeschlagene API-Funktion ist dafür gut und wird oft genommen.

https://www.ms-office-forum.net/forum/showpost.php?p=2001117&postcount=5


Alternative ist die Funktion SHCreateDirectoryExW, zu der manche sagen, sie sei "moderner" als die MakeSureDirectoryPathExists und hat mehr Rückmeldungsmöglichkeiten.

https://www.herber.de/forum/cgi-bin/callthread.pl?index=1924795

Gruß
Karl-Heinz
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige