mehrstufige Ordnerstruktur mit mkdir

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
ein Beispiel:

Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
    ByVal DirPath As String) As Long
Private Declare Function GetLastError Lib "kernel32.dll" () As Long
Declare Function FormatMessageA Lib "kernel32.dll" ( _
    ByVal dwFlags As Long, _
    ByRef lpSource As Any, _
    ByVal dwMessageId As Long, _
    ByVal dwLanguageId As Long, _
    ByVal lpBuffer As String, _
    ByVal nSize As Long, _
    ByRef Arguments As Long) As Long

Private Const FORMAT_MESSAGE_FROM_SYSTEM As Long = &H1000
Private Const FORMAT_MESSAGE_IGNORE_INSERTS As Long = &H200

Private Const LANG_NEUTRAL As Long = &H0
Private Const LANG_GERMAN As Long = &H7

Private Const SUBLANG_GERMAN As Long = &H1

Public Sub Beispiel()
    Dim lngReturn As Long, lngError As Long
    Dim lngFlags As Long, lngBuffer As String
    Dim lngLanguage As Long

    lngReturn = MakeSureDirectoryPathExists("D:\stufe1\stufe2\stufe3\")

    If lngReturn = 0 Then

        lngError = Err.LastDllError
        lngFlags = FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS
        lngLanguage = LANG_NEUTRAL Or (SUBLANG_GERMAN * 1024)
        lngBuffer = Space(256)

        lngReturn = FormatMessageA(lngFlags, 0&, lngError, lngLanguage, lngBuffer, Len(lngBuffer), 0&)

        If lngReturn = 0 Then
            Call MsgBox("Ein Fehler ist bei dem ermitteln des Fehlertextes aufgetreten.", vbCritical, "DLL-Fehler")
        Else
            Call MsgBox(Left$(lngBuffer, lngReturn), vbCritical, "Pfadfehler")
        End If
    End If
End Sub

Gruß
Nepumuk

' ********************************************************************** ' Modul: Modul3 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long Sub test() Dim strPath As String strPath = "d:\stufe1\stufe2\stufe3\" If MakeSureDirectoryPathExists(strPath) <> 0 Then MsgBox "Der Pfad : " & strPath & " wurde erfolgreich angelegt!" End If End Sub

Dim ZielPfad As String Dim TeilPfad As String Dim TT Dim i ZielPfad = "d:\stufe1\stufe2\stufe3" TT = Split(ZielPfad, "\") TeilPfad = TT(0) For i = 1 To UBound(TT) TeilPfad = TeilPfad & "\" & TT(i) If Dir(TeilPfad, vbDirectory) = "" Then MkDir TeilPfad Next

Beliebteste Forumthreads (12 Monate)

mehrstufige Ordnerstruktur mit mkdir

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mehrstufige Ordnerstruktur mit mkdir

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread