Скрипт Update.Файл существует

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Скрипт Update.Файл существует

yastreb_oren

Новый участник

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

Конфигурация

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

Здравствуйте.
Подскажите пожалуйста где косяк.Я недавно началь использовать скрипты, и поэтому не пойму в чем дело.
Есть скрипт который проверяет наличие необходимых папоки если их нет то копирует их с сервера(Виндоус 2003) на клиент(ХР).
===================================================
Set objFolder = CreateObject("Scripting.FileSystemObject")
If objFolder.FolderExists("D:\LANG") Then
Else
Set objFolder = objFolder.CreateFolder("D:\LANG")
End If

Set objBP = CreateObject("Scripting.FileSystemObject")
If objBP.FolderExists("D:\LANG\BP") Then
Else
objBP.CopyFolder "\\Servervt\ProgrammStudent$\BP" , "D:\LANG\" , OverWriteFiles
End If

Set objBC = CreateObject("Scripting.FileSystemObject")
If objBC.FolderExists("D:\LANG\BC") Then
Else
objBC.CopyFolder "\\Servervt\ProgrammStudent$\BC" , "D:\LANG\" , OverWriteFiles
End If
=======================================================
Этот крипт при загрузке выдает сообщение об ошибке: Файл уже существует существует. А вот если убрать добавлен ие последней папки. Т.Е.
=======================================================
Set objFolder = CreateObject("Scripting.FileSystemObject")
If objFolder.FolderExists("D:\LANG") Then
Else
Set objFolder = objFolder.CreateFolder("D:\LANG")
End If

Set objBP = CreateObject("Scripting.FileSystemObject")
If objBP.FolderExists("D:\LANG\BP") Then
Else
objBP.CopyFolder "\\Servervt\ProgrammStudent$\BP" , "D:\LANG\" , OverWriteFiles
End If
===========================================================

ТО все нормально.Копируется без ошибок. Подскажите кто знает в чем проблема

Отправлено: 17:28, 31-03-2008

yastreb_oren

Новый участник

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

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

Все нашел косяк. скрипт работал даже по сле того когда я завершал сеанс пользователя, а когда снова входил под ним(без перещагрузки) запускалась вторая кпия скрипта и они мешали друг другу.
РЕШЕНО

Отправлено: 08:53, 01-04-2008 | #2