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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

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

Задача такая надо создать папку, но у пользователя спросить ее название и копировать в нее папки из другой папки.
Например надо создать папку спросив пользователя ее название и из папки 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.
Подскажите куда копать ?

Цитата:

Цитата lokarius

Например надо создать папку спросив пользователя ее название »

InputBox Function - MSDN - Microsoft

InputBox Function

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

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

Код:

@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

Код:

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

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