Тема: VBS: Копировани файлов без перезаписи
Добрый день.
Начал изучать vbs c простой задачи:
Подключить сетевой диск, от определённого пользователя.
Скопировать на него несколько файлов, перезаписывать не нужно.
Отключить сетевой диск.
Проблема в следующем
Эта редиска копирует вновь созданные файлы, но только какие ему нравятся, критерий понять не могу.
Если поставить перезапись, то все файлы копируются.
On Error Resume Next
Set objWshNetwork = CreateObject( "WScript.Network" )
Set objShell = CreateObject("Shell.Application")
objWshNetwork.MapNetworkDrive "n:","\\111.116.113.115\\Журналы событий", "true","networkuser","XXX"
If Err.Number Then
WScript.echo "Копирование прошло с ошибками. Сообщите об этом администратору."& " " & Err.Number & " - " & Err.Description
else
Dim fso, FolderName2, FolderName1
Set fso = CreateObject("Scripting.FileSystemObject")
FolderName1 = "C:\Users\*.*"
FolderName2 ="N:\goto"
fso.CopyFile FolderName1, FolderName2, 0
If Err.Number Then
If Err.Number <> 58 Then
WScript.echo "Копирование прошло с ошибками. Сообщите об этом администратору."& " " & Err.Number & " - " & Err.Description
End if
End if
End if
WScript.Sleep 60000*0.2
objWshNetwork.RemoveNetworkDrive "n:", true, true
.