2

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

在 .vbs [摘要]

先在这里阅读

"x" 尝试使用 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。）

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 < 180 个文件夹）

“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 < 180 ，在创建的每个文件夹 1-180 我想在所有 180 个文件夹中创建子文件夹

"x" 创建多个文件夹，例如 (i = 0 | i < 180 个文件夹)

“y”子文件夹如

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

"z" 在子文件夹中移动文件和重命名文件，如

myFSO.MoveFile "C:\myfile1.txt" , "C:\New folder\myfile222.txt"

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

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

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

4

1 回答 1

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

感谢SmartCreateFolder2 @EBGreen

于 2014-04-19T19:47:51.713 回答