CheckFolders

From scripting
Jump to: navigation, search
Sub CheckFolders(CurDirectoryStr As String)
    Dim curFolderStr As String
    curFolderStr = CurDirectoryStr       
    If FS.FolderExists(curFolderStr) = False Then
        If curFolderStr <> "" Then
            If FolderVerify(curFolderStr) Then
                FS.CreateFolder (curFolderStr)
            Else
                harr = Split(curFolderStr, "\")
                Dim HName As String
                HName = harr(0)
                For X2 = 1 To UBound(harr)
                    HName = HName & "\" & harr(X2)
                    If FS.FolderExists(HName) = False Then
                        FS.CreateFolder HName
                    End If
                Next X2
            End If
        End If
    End If
End Sub