Difference between revisions of "CheckFolders"
From scripting
(Created page with " Sub CheckFolders(CurDirectoryStr As String) Dim curFolderStr As String curFolderStr = CurDirectoryStr If FS.FolderExists(curFolderStr) = False Then...") |
(No difference)
|
Latest revision as of 05:11, 22 April 2017
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