[решено] Запрос названия папки при создании и копирование в нее других папок

[lokarius]

Задача такая надо создать папку, но у пользователя спросить ее название и копировать в нее папки из другой папки.
Например надо создать папку спросив пользователя ее название и из папки A1 в нее скопировать всё содержимое (содержимое папки это подпапки b1,b2,b3,b4 и тд)
Есть у меня такой скрипт :

Set FSO = CreateObject("Scripting.FileSystemObject")

strFolder1 = "\\192.168.x.x\Files\A1\b1" (папка которую копируют)
strFolder2 = "\\192.168.x.x\Files\A1\Q\" & strFolder2 ( папка куда копируют)

If Not FSO.FolderExists(strFolder2) Then FSO.CreateFolder(strFolder2)
strFolder2 = strFolder2 &"\"& FSO.GetFileName(strFolder1)
FSO.CopyFolder strFolder1, strFolder2, OverWriteFiles

strFolder1 = "\\192.168.x.x\Files\A1\b2" (папка которую копируют)
strFolder2 = "\\192.168.x.x\Files\A1\Q" ( папка куда копируют)

НО он копирует тупо в папку Q.
Подскажите куда копать ?

[Iska]

Например надо создать папку спросив пользователя ее название »
InputBox Function - MSDN - Microsoft (http://msdn.microsoft.com/en-us/library/3yfdhzk5(v=vs.84).aspx)

[lokarius]

InputBox Function

Это понятно, не понятно как скопировать в сознанную папку.

[Georgio]

Пакетный файл:

@echo off
set source_folder=\\192.168.x.x\Files\A1
echo Enter the destination folder name.
echo.
set /p dest_folder=
cls
xcopy "%source_folder%" "%dest_folder%" /e /i /y>nul&&^
echo Done! Press any key to exit.
pause>nul
exit /b

.

[Iska]

Option Explicit

Dim strSourceFolder
Dim strDestFolder


strSourceFolder = "\\192.168.x.x\Files\A1"

With WScript.CreateObject("Scripting.FileSystemObject")
If .FolderExists(strSourceFolder) Then
strDestFolder = Trim(InputBox("Enter path into new folder:", "New folder path", "c:\Some folder"))

If Len(strDestFolder) > 0 Then
If Not .FolderExists(strDestFolder) Then
.CreateFolder strDestFolder
End If

.CopyFolder strSourceFolder, strDestFolder, True
End If
Else
WScript.Echo "Source folder [" & strSourceFolder & "] not found."
WScript.Quit 1
End If
End With

WScript.Quit 0

[lokarius]

Спасибо проблема решена