Пишу примерно это:
Set wshFso = WScript.CreateObject("Scripting.FileSystemObject")
Set wshNet = WScript.CreateObject( "WScript.Network")
user = wshNet.UserName
comp = wshNet.ComputerName
Folder = "c:\backup\" & user
if wshFso.FolderExists(Folder) = false then
wshFso.CreateFolder(user)
wshFso.CreateFolder(user & "\desktop")
wshFso.CopyFolder "\\" & comp &"\c$\documents and settings\" & user & "рабочий стол\*.*","c:\backup\"& user &"\desktop"
end if
Ругается на предпоследнюю строчку...путь не найден...
п.с. вот что значит, когда не дают денег на нормальную систему создания бэкапов...
Set wshFso = WScript.CreateObject("Scripting.FileSystemObject")
Set wshNet = WScript.CreateObject( "WScript.Network")
user = wshNet.UserName
comp = wshNet.ComputerName
Folder = "c:\backup\" & user
if wshFso.FolderExists(Folder) = false then
wshFso.CreateFolder(user)
wshFso.CreateFolder(user & "\desktop")
wshFso.CopyFolder "\\" & comp &"\c$\documents and settings\" & user & "рабочий стол\*.*","c:\backup\"& user &"\desktop"
end if
Ругается на предпоследнюю строчку...путь не найден...
п.с. вот что значит, когда не дают денег на нормальную систему создания бэкапов...
ВАЗ-2112/NISSAN PRIMERA/DODGE CALIBER/KIA RIO/ LEXUS GX470
