Ordnerstruktur erstellen Mittels der Funktion CreatePathIfNotExists werden Ordner, anhand eines übermittelten Pfades, angelegt.
Autor:   Dennis Hemken	Bewertung:     [ Jetzt bewerten ]	Views:  12.379
gadgets.hemken.org	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 25 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit der nachfolgenden Prozedur "CreatePathIfNotExists" werden Ordner, anhand eines übermittelten Pfades, mittels FileSystemObject angelegt. Einfach gestrickt, aber durchaus wirkungsvoll.

' Verzeichnisstruktur erstellen
Public Sub CreatePathIfNotExists(ByVal strPath As String)
  Dim objFSO As Object
  Dim intPos As Integer
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
  If Left$(strPath, 2) = "\\" Then
    intPos = InStr(3, strPath, "\")
  Else
    intPos = 3
  End If
 
  Do While intPos > 0
    intPos = InStr(intPos + 1, strPath, "\")
    If Not objFSO.FolderExists(Left(strPath, intPos)) And intPos > 0 Then
      objFSO.CreateFolder Left(strPath, intPos)
    End If
  Loop
 
  Set objFSO = Nothing
End Sub

Beispielaufruf:

Dim strPath
strPath = "C:\FSO\test\test2\tmp1\tolles_script\fuer_treue\VBARCHIV\UsErS"
 
CreatePathIfNotExists strPath