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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.