Sub PfadWiederherstellung(ByVal Pfad As String)
 
        Dim str As String
        Dim strArr() As String
        Dim count As Integer
        Dim DriveIndex As Integer
 
        Pfadwiederherstellung_Status = True
 
        On Error Resume Next
 
        str = Pfad
        strArr = str.Split("\")
 
        For I = 0 To trvVerzeichnis.Nodes.Count - 1
            If UCase(trvVerzeichnis.Nodes(I).Text) = UCase(strArr(0)) & "\" Then
                trvVerzeichnis.Nodes(I).Expand()
                DriveIndex = I
            End If
        Next
 
        For count = 1 To strArr.Length - 1
            findNode(trvVerzeichnis.Nodes(DriveIndex), strArr(count))
            trvVerzeichnis.SelectedNode.Text = strArr(count)
        Next
 
        trvVerzeichnis.SelectedNode = trvVerzeichnis.Nodes.Find(strArr( _
          strArr.Length - 1), True)(0)
        Pfadwiederherstellung_Status = False
 
    End Sub