使用 VBS 创建文件夹和子文件夹答案

【问题标题】：Create Folders and Subfolders using VBS使用 VBS 创建文件夹和子文件夹
【发布时间】：2015-06-07 12:23:31
【问题描述】：

我希望能够在一个目录中创建一定数量的文件夹和子文件夹。我已经有一个循环并创建文件夹和子文件夹的代码。无论如何要创建一定数量的这些文件夹吗？我也希望能够按顺序创建它们。例如，我已经有 2000 个文件夹。我想再创建一千个，但它会从 2001 年到 3000 年开始。我基本上想自动化下面的代码，所以没有人必须进入并不断更改脚本中的值。谢谢！

代码如下：

Dim oFSO,Folder
Set oFSO = CreateObject("Scripting.FileSystemObject")
For i = 1001 To 2000
 '  x=msgbox("Directorie " & i ,64, "MakeDir")

If Not oFSO.FolderExists(i) Then
  oFSO.CreateFolder i
End If
If Not oFSO.FolderExists(i & "/Text") Then
  oFSO.CreateFolder i & "/Text"
End If
If Not oFSO.FolderExists(i & "/Text") Then
  oFSO.CreateFolder i & "/Text"
End If
If Not oFSO.FolderExists(i & "/Text") Then
  oFSO.CreateFolder i & "/Text"
End If
If Not oFSO.FolderExists(i & "/TestData") Then
  oFSO.CreateFolder i & "/TestData"
End If
 Next

【问题讨论】：

您将在哪里设置所需的金额？外部输入框什么的？
不，它只是在代码本身中。我打算使用任务调度程序来创建这些文件夹。所以我只想让它自己运行。
啊，也许将它们命名为"folder_no_" + i，然后在运行循环之前解析最后创建的文件夹的名称？
解析只会给我文件夹号吗？对不起，我对编程 vbs 完全陌生。
当然，去掉folder_no_ 部分，留下号码。例如mid(folder_string, 11)

标签： vbscript directory subdirectory

【解决方案1】：

试试这个...

BaseFolder = "C:\temp"  'Root folder to look for/create subfolders in
MaxSize = 5             'the number of characters to allow in folder name
PaddingCharacter = "0"  'padding folder names with zeros for proper sorting
NumFolders = 10         'number of additional folder to create

intStart = GetLastFolder(BaseFolder)

If IsNull(intStart) Then
    intStart = 1
Else 
    'skip
End If

For i = intStart To intStart + NumFolders
    strFolderName = BaseFolder & "\" & RightPad( i, MaxSize, PaddingCharacter )
    Wscript.Echo strFolderName
    CreateFolders(strFolderName)
Next

Function GetLastFolder(strFolder)
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set objFolder = fso.GetFolder(BaseFolder)   
   Set subFlds = objFolder.SubFolders

    For Each fld in subFlds
        s = fld.Name
    Next

    x=Len(s)    
    For i=0 to x-1
        If Mid(s,i+1,1) = "0" Then
            'skip
        Else
            s = Mid(s,i+1,x)
            Exit For
        End If
    Next 

   GetLastFolder = s
End Function


Function CreateFolders(i)
    Dim oFSO,Folder
    Set oFSO = CreateObject("Scripting.FileSystemObject")

    If Not oFSO.FolderExists(i) Then
      oFSO.CreateFolder i
    End If
    If Not oFSO.FolderExists(i & "/Text") Then
      oFSO.CreateFolder i & "/Text"
    End If
    If Not oFSO.FolderExists(i & "/Text") Then
      oFSO.CreateFolder i & "/Text"
    End If
    If Not oFSO.FolderExists(i & "/Text") Then
      oFSO.CreateFolder i & "/Text"
    End If
    If Not oFSO.FolderExists(i & "/TestData") Then
      oFSO.CreateFolder i & "/TestData"
    End If
End Function

Function RightPad( strText, intLen, chrPad )
    'Example: RightPad( "1000", 7, "0" ) = "0001234"
    'Example: RightPad( "1000", 4, "0" ) = "1000"
    RightPad = Right( String( intLen, chrPad ) & strText, intLen )
End Function

【讨论】：