Microsoft Excel

Herbers Excel/VBA-Archiv

Existiert Pfad ?

    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

      


    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


      


    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.


      


    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


      


    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


      


    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


      


    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


     

    Beiträge aus den Excel-Beispielen zum Thema " Existiert Pfad ?"