Попытка создать несколько папок с VBScript

Question

Мне нужно создать набор пустых папок, начиная с 10 и заканчивая 180. Это сценарий, который я пытаюсь использовать, но он просто создает 10 и ничего больше.

Option Explicit
Dim objFSO, objFolder, strDirectory, i
strDirectory = "\path\to\main\folder"

Set objFSO = CreateObject("Scripting.FileSystemObject")
i = 180
While i < 180
    Set objFolder = objFSO.CreateFolder(strDirectory & i)
    i = i+1
    WScript.Quit
Wend

Я довольно новичок в VBScript, так что, возможно, проблема очевидна, но я просто не вижу этого. Я также пытался использовать For цикл, но это, похоже, не сработало вообще.

Заранее спасибо всем, кто читает это.

Answer 1

Я изменил ваш скрипт следующим образом:

Option Explicit 
Dim objFSO, objFolder, strDirectory, i 
strDirectory = "C:\Temp\Test\folder" 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
i = 10  '' <===== CHANGED!
While i < 180 
    Set objFolder = objFSO.CreateFolder(strDirectory & i) 
    i = i+1 
    ''WScript.Quit '' <===== COMMENTED OUT!
Wend 

С помощью этого скрипта мне удалось создать 180 папок.