Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] Запрос названия папки при создании и копирование в нее других папок (http://forum.oszone.net/showthread.php?t=280428)

lokarius 07-04-2014 10:29 2334151

Запрос названия папки при создании и копирование в нее других папок
 
Задача такая надо создать папку, но у пользователя спросить ее название и копировать в нее папки из другой папки.
Например надо создать папку спросив пользователя ее название и из папки 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 07-04-2014 13:16 2334193

Цитата:

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

InputBox Function - MSDN - Microsoft

lokarius 07-04-2014 13:40 2334207

InputBox Function

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

Georgio 07-04-2014 13:42 2334209

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

Код:

@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 07-04-2014 14:08 2334222

Код:

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 07-04-2014 14:37 2334236

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


Время: 15:38.

Время: 15:38.
© OSzone.net 2001-