Das Archiv des Excel-Forums

Existiert Pfad ?

Bild

Betrifft: Existiert Pfad ?
von: Philipp

Geschrieben am: 28.09.2003 19:48:34

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
Bild


Betrifft: AW: Existiert Pfad ?
von: Nepumuk
Geschrieben am: 28.09.2003 19:59:21

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


Bild


Betrifft: AW: Existiert Pfad ?
von: K.Rola
Geschrieben am: 28.09.2003 21:21:02

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.


Bild


Betrifft: skin- Effekt
von: Nepumuk
Geschrieben am: 28.09.2003 22:01:26

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


Bild


Betrifft: AW: Existiert Pfad ?
von: Philipp
Geschrieben am: 29.09.2003 10:35:25

Danke für die Hilfe. Mit der ersten Version hat's bisher gut geklappt.
Schönen Tag noch.

Philipp


Bild


Betrifft: AW: Existiert Pfad ?
von: Nepumuk
Geschrieben am: 28.09.2003 21:53:46

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


Bild


Betrifft: AW: Existiert Pfad ?
von: Nepumuk
Geschrieben am: 28.09.2003 21:56:48

Uuuuuuuuuuuuuups, da fehlt ein Schrägstrich. So ist's richtig:

MakeSureDirectoryPathExists "c:\dummie\eins\"

Gruß
Nepumuk


 Bild

Excel-Beispiele zum Thema " Existiert Pfad ?"

Prüfung, ob eine Symbolleiste existiert download Feststellen, ob eine Datei in einem Verzeichnis existiert download
Prüfung, ob Datei existiert und bei nein Meldung download Prüfen, ob eine TextBox mit vorgegebenem Namen existiert download
Prüfung, ob ein Laufwerk auf dem Rechner existiert download Prüfen, ob ein Name im Outlook-Adressbuch existiert download