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