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

将counter+=1移到do循环中。它可能会创建第一个目录，但因为计数器永远不会在循环内增加，所以它可能只是覆盖它自己。

更改为：

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

P.S。在您的情况下，您需要在counter+=1声明之前移动loop。

Answer 3

你应该真的使用For循环：

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

使用VB.NET创建5000个目录

3 个答案: