Tipp 1.27 - Ordner erstellen

Wie kann ich einen beliebigen Ordnerpfad erstellen (Variante 2)?

Mit dieser Funktion können Sie einen beliebigen Ordnerpfad erstellen (Variante 2). Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: CreatedNestedFolder

Beispiel:

Option Explicit
 
Declare Function CreatedNestedFolder Lib "imagehlp.dll" Alias _
                "MakeSureDirectoryPathExists" _
                (ByVal lpPath As String) As Long
 
Function MakePath(ByVal sFolderPath As String) As Boolean
'// -----------------------------------------------------
'// Methode:   | Beliebigen Ordnerpfad erstellen
'// -----------------------------------------------------
'// Parameter: | sFolderPath - zu erstellender Ordnerpfad
'// -----------------------------------------------------
'// Rückgabe:  | Ermitteltes Dezimal-Trennzeichen
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    sFolderPath = Trim$(sFolderPath)
    If Len(sFolderPath) = 0 Then Exit Function
 
    If Right$(sFolderPath, 1) <> "\" Then
        sFolderPath = sFolderPath & "\"
    End If
    MakePath = _
    CBool(CreatedNestedFolder(sFolderPath) <> 0)
 
End Function


Zurück Tipp 1.26 - Datei offen | Inhalt | Tipp 1.28 - Dateiversion ermitteln Weiter