vbs创建1-500个文件夹
时间: 2023-09-11 08:10:08 浏览: 81
可以使用以下VBScript代码来创建1-500个文件夹:
```
For i = 1 To 500
Dim folderName
folderName = "Folder" & i
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(folderName)
Next
```
在上面的代码中,我们使用了一个循环来创建1到500个文件夹。每个文件夹的名称都是"FolderX",其中X是当前循环的计数器值。我们使用了FileSystemObject对象来创建文件夹,并且使用CreateFolder方法来创建文件夹。
相关问题
vbs创建1-500个文件夹在d盘
可以使用以下VBScript代码在D盘中创建1到500个文件夹:
```
Dim fso, folder, i
Set fso = CreateObject("Scripting.FileSystemObject")
For i = 1 to 500
Set folder = fso.CreateFolder("D:\Folder" & i)
Next
```
将此代码保存为`.vbs`文件,然后双击运行即可在D盘中创建1到500个名为“Folder1”到“Folder500”的文件夹。
vbs 创建100个文件夹文件夹,每个文件夹放一个txt文件
可以使用以下VBScript代码来创建100个文件夹,每个文件夹中包含一个txt文件:
```
Dim fso, fol, fil
Set fso = CreateObject("Scripting.FileSystemObject")
For i = 1 To 100
Set fol = fso.CreateFolder("C:\TestFolder" & i)
Set fil = fso.CreateTextFile("C:\TestFolder" & i & "\test.txt", True)
fil.Close
Next
```
在这个脚本中,我们使用了FileSystemObject对象来创建文件夹和文本文件。我们使用一个for循环来重复这个过程100次,每次创建一个文件夹和一个txt文件,并将txt文件放入该文件夹中。你可以将“C:\TestFolder”更改为你想要创建文件夹的位置。