嘗試使用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個文件夾。