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

【问题标题】：[in .vbs][3in1] Create multiple folder 180 => Create subfolders in All 180 => Move file and rename file in Subfolders created [3in1] "x, y, z"[in .vbs][3in1] 创建多个文件夹 180 => 在所有 180 中创建子文件夹 => 在创建的子文件夹中移动文件并重命名文件 [3in1] "x, y, z"
【发布时间】：2014-06-02 17:29:12
【问题描述】：

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

在.vbs [摘要]

先在这里阅读

“x” 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” Help To create Folder1/Folder2 in Windows using VBScript ( Both the folders not exists before, i mean to create multilevel folders @ a strech.)

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

或

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:\New folder\myfile222.txt"

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

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

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

3) 移动文件 (C:\Name.txt) 并重命名子文件夹中的文件 (C:\New folder\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:\New folder\myfile222.txt"

myFSO.MoveFile "C:\myfile1.txt" , "C:\New folder\FolderB\Folder1\FolderQ\folder3\folderG\myfile222.txt"

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

感谢您的帮助。请原谅我用谷歌翻译翻译的英语我希望你能理解我要处理的“x, y, z”（垂直、水平、文件）。

【问题讨论】：

这让我想起了几周前提出的batch-file 问题。有可能你们都参加了同一个编程课程，并在 SO 上发布您的问题以获得家庭作业的帮助？这一切的目的是什么——创建数百个文件夹并移动文件……看起来很学术（例如，家庭作业）。

标签： vbscript adsutil.vbs

【解决方案1】：

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

感谢SmartCreateFolder 2 @EBGreen

【讨论】：