CheckFolders
From scripting
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