[in .vbs][3in1] Создать несколько папок 180 => Создать подпапки в All 180 => Переместить файл и переименовать файл в созданных подпапках [3in1] "x, y, z"

Question

"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" Чтобы создать Folder1 / Folder2 в Windows с помощью VBScript (обе папки ранее не существовали, я имею в виду создание многоуровневых папок @ 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")

"г"

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

---

я хочу сделать

Я надеюсь, что вы понимаете, куда я иду с "x, y, z" (вертикальный, горизонтальный, перемещение и переименование файлов.)

"х" Создать несколько папок (я = 0 | я < 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 папках

"х" Создать несколько папок, как (я = 0 | я < 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)

Спасибо за помощь. Извините, пожалуйста, мой английский, который я перевел в Google Translate. Надеюсь, вы понимаете, куда я иду с "x, y, z" (вертикальный, горизонтальный, файлы).

Answer 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