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

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

Старожил


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

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


Код: Выделить весь код
folder_v="C:\" 		'Путь папки куда копировать
folder_iz="\\server\ini\"						'Путь папки откуда копировать
file="ini"								'Имя файла
 Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")    
		objFSO.DeleteFile(folder_v & file)                          'Удаляем файл

  Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFile folder_iz & file, folder_v                                    'Копируем файл

Проверь вроде так должно быть.
И вставляй в логон скрипт

Отправлено: 10:58, 15-06-2006 | #4