[megaloman]

Код:

BoxIn = "\\192.168.100.23\Test1\kuku"
BoxOut = "Z:\Soft_Out"
Flag = BoxOut + "\11.txt"

With CreateObject("Scripting.FileSystemObject")
    If Not .FolderExists(BoxOut) Then
        MsgBox "Folder" + vbCrLf + vbCrLf + BoxOut + vbCrLf + vbCrLf + "not found"
        WScript.Quit 2
    End If
    If .FileExists(Flag) Then
        MsgBox "File" + vbCrLf + vbCrLf + Flag + vbCrLf + vbCrLf + "exists."
        WScript.Quit 1
    End If
    .CopyFolder BoxIn, BoxOut, True
End With

MsgBox "OK"