![]() |
Запрос названия папки при создании и копирование в нее других папок
Задача такая надо создать папку, но у пользователя спросить ее название и копировать в нее папки из другой папки.
Например надо создать папку спросив пользователя ее название и из папки 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. Подскажите куда копать ? |
Цитата:
|
InputBox Function
Это понятно, не понятно как скопировать в сознанную папку. |
Пакетный файл:
Код:
@echo off |
Код:
Option Explicit |
Спасибо проблема решена
|
Время: 15:38. |
Время: 15:38.
© OSzone.net 2001-