尝试使用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个文件夹。