在指定文件夹下创建多个子文件夹

1.VBS:

Const Number=25
Dim FolderName
FolderName="t01_01-"
For i=1 To Number
 temp=FolderName&i
 Call AddNewFolder("c:\t01_01",temp)
Next
If i=Number+1 then
 MsgBox("创建"&i-1&"个文件夹成功")
Else
 MsgBox("创建失败")
End if
Sub AddNewFolder(path, folderName)
   Dim fso, f, fc, nf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(path)
   Set fc = f.SubFolders
   If folderName <> "" Then
      Set nf = fc.Add(folderName)
   Else
      Set nf = fc.Add("New Folder")
   End If
End Sub

2.C语言：

#include <stdio.h>
#include <dir.h>
#include <stdlib.h>
int main (void)
{
 int i;
 const char* dir_format = "D:\\MyFolder1\\test%d";
 char dir[MAX_PATH] = {0};
 for (i = 0; i <25; ++i)
 {
    sprintf(dir, dir_format, i);
    mkdir(dir);
 }
 system ("start D:\\MyFolder1");
 
 return 0;
}