Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать


KillHunter
вроде так:
Код: Выделить весь код
Set oWSH = WScript.CreateObject("WScript.Shell")
oWSH.Run "xcopy /E /Y /Q /H ""D:\Мои документы\*.*"" ""\\Serv\" & oWSH.ExpandEnvironmentStrings("%USERNAME%") & "\""", 0, vbTrue

Отправлено: 13:16, 26-04-2007 | #4