Как создать каталоги и подкаталоги с помощью VBScript?

Question

У меня есть переменная copyFolderPath, как c:\images\movies\users\joe\

У меня есть следующий код:

If objFSO.FolderExists(copyFolderPath) = False Then 
    Wscript.Echo "Creating: " + copyFolderPath 
    objFSO.createFolder copyFolderPath 
End If 

Проблема заключается в том, это только создать каталог joe, если он не существует. Мне нужен код, который также создаст каталог users, movies или images, если они не существуют.

Как я могу это сделать?

Answer 1

Я закончил с использованием этой функции:

Sub subCreateFolders(strPath) 

    If Right(strPath, 1) <> "\" Then 
     strPath = strPath & "\" 
    End If 

    strNewFolder = "" 
    Do Until strPath = strNewFolder 
     strNewFolder = Left(strPath, InStr(Len(strNewFolder) + 1, strPath, "\")) 

     If objFSO.FolderExists(strNewFolder) = False Then 
     objFSO.CreateFolder(strNewFolder) 
     End If 
    Loop 
End Sub