Public Function CreatePathTree(ByVal sFolder As String) As Boolean
  On Error Resume Next
  Dim sFolderSplitted() As String, sCurFolder$, i%
  If Right(sFolder, 1) = "\" Then sFolder = Left(sFolder, Len(sFolder) - 1)
  sFolderSplitted = Split(sFolder, "\")
  For i = 0 To UBound(sFolderSplitted)
    sCurFolder = sCurFolder & sFolderSplitted(i) & "\"
    MkDir sCurFolder
  Next i
  sCurFolder = Left(sCurFolder, Len(sCurFolder) - 1)
  CreatePathTree = (Dir(sCurFolder, vbDirectory + vbHidden + vbReadOnly + _
    vbSystem) <> "") And (GetAttr(sCurFolder) And vbDirectory)
End Function

Public Function CreatePathTree(ByVal sFolder As String) As Boolean
	Try
		Dim sFolderSplitted() As String
		Dim sCurFolder As String, i As Integer
		Dim iFolderAttribs As Integer = FileAttribute.Directory + _
			FileAttribute.Archive +	FileAttribute.Hidden + _
			FileAttribute.ReadOnly + FileAttribute.System
 
		If sFolder.EndsWith("\") Then sFolder = _
			sFolder.Substring(0, sFolder.Length - 1)
 
		sFolderSplitted = sFolder.Split("\")
		For i = 0 To UBound(sFolderSplitted)
			sCurFolder = sCurFolder & sFolderSplitted(i) & "\"
			If Dir(sCurFolder, iFolderAttribs) = "" Then
				MkDir(sCurFolder)
			End If
		Next i
		sCurFolder = sCurFolder.Substring(0, sCurFolder.Length - 1)
		CreatePathTree=(Dir(sCurFolder, iFolderAttribs) <> "") AndAlso _
			(GetAttr(sCurFolder) And FileAttribute.Directory)
	Finally
	End Try
End Function

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.