[in .vbs][3in1] 创建多个文件夹 180 => 在所有 180 个文件夹中创建子文件夹 => 移动文件并重命名创建的子文件夹中的文件 [3in1] "x, y, z"

“x, y, z”（垂直、水平、移动和重命名文件。） 我想组合 3in1 (x,y,z.).vbs

在.vbs中[摘要]

首先在这里阅读

"x" 尝试使用 VBScript 创建多个文件夹 https://stackoverflow.com/questions/3824175/trying-to-create-multiple-folders-with-vbscript

Option Explicit
Dim objFSO, objFolder, strDirectory, i
strDirectory = "C:\New folder (2)\"

Set objFSO = CreateObject("Scripting.FileSystemObject")
i = 0
While i < 180
Set objFolder = objFSO.CreateFolder(strDirectory & i)
i = i+1
WScript.Quit
Wend

"y" 帮助使用VBScript在Windows中创建Folder1/Folder2（这两个文件夹以前不存在，我的意思是创建多级文件夹@ a strech。） https://stackoverflow.com/questions/4407386/help-to-create-folder1-folder2-in-windows-using-vbscript-both-the-folders-not

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "cmd /c mkdir C:\folder1\folder2\folder3"

or

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder("C:\New folder\Client")
fs.CreateFolder("C:\New folder\Client\subclient")
fs.CreateFolder("C:\New folder\Client\subclient\subsubclient")

"z"

Set x = CreateObject("Scripting.FileSystemObject")
x.MoveFile "C:\myfile.txt" , "C:\New folder\myfile222.txt"

我想要做

我希望您明白我要使用“x、y、z”（垂直、水平、移动和重命名文件。）

"x" 创建多个文件夹（i = 0 | i

“y”子文件夹（在所有“x”180 个文件夹中）

“z”并移动文件并在新位置重命名

myFSO.MoveFile "C:\myfile1.txt" , "C:\新文件夹\myfile222.txt"

对于 180 个，发送到每个 180 个“x,y”...子文件夹

1）创建多个文件夹，如脚本，最多0-180个文件夹

2) 在创建的所有 180 个文件夹中创建子文件夹。

3) 移动文件 (C:\Name.txt) 并重命名子文件夹 (C:\Newfolder\FolderB\Folder1\FolderQ\folder3\folderG\myfile222.txt) 中的文件

C:\新文件夹\FolderB\Folder1\FolderQ\folder3\folderG

我想将所有内容合并到一个脚本中。

我需要 [创建多个文件夹] [每个文件夹创建 180] = >> [我想创建子文件夹] [并移动文件 (name.txt) 并在子文件夹中重命名]

例如：文件夹 i

“x” 创建多个文件夹，例如 (i = 0 | i

“y”子文件夹如

“C:\新文件夹\FolderB\Folder1\FolderQ\folder3\folderG

“z”移动文件并重命名子文件夹中的文件，例如

myFSO.MoveFile "C:\myfile1.txt" , "C:\新文件夹\myfile222.txt"

myFSO.MoveFile "C:\myfile1.txt" , "C:\新文件夹\FolderB\Folder1\FolderQ\folder3\folderG\myfile222.txt"

我想将多个文件夹与每个文件夹中的子文件夹合并180，并移动文件（Name.txt）并重命名子文件夹（FolderG）中的文件

谢谢你的帮助。 请原谅我的英语我已经用谷歌翻译翻译了 我希望你明白我要使用“x、y、z”（垂直、水平、文件）。

Dim i

With CreateObject("Scripting.FileSystemObject")
    For i = 0 to 179
        SmartCreateFolder "C:\Test\MySet\Folder" & i
        .CopyFile "C:\Test\data.txt", "C:\Test\MySet\Folder" & i & "\file_" & Left(CreateObject("Scriptlet.TypeLib").GUID, 38) & ".txt", True
    Next
    .DeleteFile "C:\Test\data.txt", True
End With

Sub SmartCreateFolder(strFolder)
    ' http://www.visualbasicscript.com/tm.aspx?m=29290
    With CreateObject("Scripting.FileSystemObject")
        If Not .FolderExists(strFolder) then
            SmartCreateFolder(.getparentfoldername(strFolder))
            .CreateFolder(strFolder)
        End If
    End With 
End Sub

感谢SmartCreateFolder2 @EBGreen