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创建1-500个文件夹

可以使用以下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 创建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”更改为你想要创建文件夹的位置。