Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Existiert Pfad ?

Forumthread: Existiert Pfad ?

Existiert Pfad ?
28.09.2003 21:48:34
Philipp
Hallo,

Bsp. im verzeichnis c:\dummie soll geprüft werden, ob des Unterverzeichnis c:\dummie\eins existiert. Wenn nein, so soll es erzeugt werden.

Wie kann ich das programmieren?

Danke im Voraus

Philipp
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Existiert Pfad ?
28.09.2003 21:59:21
Nepumuk
Hallo Philipp,
so geht's:


Option Explicit
Public Sub Ordner()
Dim FsyObject As Object
Set FsyObject = CreateObject("Scripting.FileSystemObject")
If Not FsyObject.FolderExists("c:\dummie\eins") Then FsyObject.CreateFolder ("c:\dummie\eins")
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Existiert Pfad ?
28.09.2003 23:21:02
K.Rola
Hallo Nepumuk,
wie wärs damit?

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

Gruß K.Rola

btw. die Sache mit dem skin- Effekt überzeugt nicht, weil nur für langweilige
flächige Grafiken geeignet. Sobald ein wenig Struktur ins Spiel kommt,
siehts grausig aus.
Anzeige
skin- Effekt
29.09.2003 00:01:26
Nepumuk
Hallo K.Rola,
und ich dachte schon ich hab da was falsch gemacht. Dann sind bei dir die Ränder auch total ausgefranst. Na ja, mal sehen ob es mit transparenten Hintergrund was wird. Irgendwo im Photoshop hab ich mal so eine Funktion gesehen.
Gruß
Nepumuk
AW: Existiert Pfad ?
29.09.2003 12:35:25
Philipp
Danke für die Hilfe. Mit der ersten Version hat's bisher gut geklappt.
Schönen Tag noch.

Philipp
Anzeige
AW: Existiert Pfad ?
28.09.2003 23:53:46
Nepumuk
Hallo Philipp,
auf Anregung von K.Rola eine weitere Möglichkeit:


Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Public Sub Ordner()
MakeSureDirectoryPathExists "c:\dummie\eins"
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Existiert Pfad ?
28.09.2003 23:56:48
Nepumuk
Uuuuuuuuuuuuuups, da fehlt ein Schrägstrich. So ist's richtig:

MakeSureDirectoryPathExists "c:\dummie\eins\"

Gruß
Nepumuk
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum