[Iska]

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

InputBox Function - MSDN - Microsoft

[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]

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