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