用VB.NET創建5000個目錄

Question

我想創建5000個目錄，其目錄的名稱是計數器。

下面是我想要使用的代碼，但是這隻爲我創建1個目錄，爲什麼？

Dim Counter As Integer 

Counter = 1 

Do Until Counter = 5000 

     FolderPath = "C:/pics/" + Counter.ToString() + "/" 
     Directory.CreateDirectory(FolderPath) 

Loop 

     Counter += 1 

VB.NET或C＃會這樣做，我只想運行一次。

Answer 1

在do循環中移動counter+=1。它可能創建第一個目錄，但是因爲計數器永遠不會在循環內部增加，所以它可能只是覆蓋自身。

改成這樣：

Do Until Counter = 5000 

     FolderPath = "C:/pics/" + Counter.ToString() + "/" 
     Directory.CreateDirectory(FolderPath) 
     Counter += 1 
Loop 

Answer 2

不要使用do while整數，整數和雙精度型更好地使用功能For：

For Counter as Integer = 1 to 5000 
    FolderPath = "C:/pics/" + Counter.ToString() + "/" 
    Directory.CreateDirectory(FolderPath) 
Next 

附：在你的情況下，你需要在loop聲明前移動counter+=1。

Answer 3

你真的應該使用For循環此：

For counter as Integer = 1 To 5000 
    FolderPath = "C:/pics/" + counter.ToString() + "/" 
    Directory.CreateDirectory(FolderPath) 
End For