CreateFullTree

Creates full tree if not found

CodeFunctionName
What is this?

Public

Tested

Original Work
Sub CreateFullTree(Tree)
' Needs Isthere(),
Dim Look As String, InFolder As String
For i = 1 To Len(Tree)
If Mid(Tree, i, 1) = "\" Then
fo = i
InFolder = Left(Tree, i)
For j = i + 1 To Len(Tree)
If Mid(Tree, j, 1) = "\" Then
Look = Mid(Tree, i + 1, j - i - 1)
If Not IsThere(Look, InFolder, , , True) Then
MkDir InFolder & "\" & Look
End If
Exit For
End If
Next j
End If
Next i
InFolder = Left(Tree, fo)
Look = Mid(Tree, fo + 1)
If Not IsThere(Look, InFolder, , , True) Then
MkDir InFolder & "\" & Look
End If
End Sub

Views 5,106

Downloads 1,475

CodeID
DB ID

ANmarAmdeen
602
Revisions

v1.0

Monday
July
9
2018
Needs