[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