Занят ли файл кем-то.

[Shurrik]

Вопрос, который у меня возник состоит в следующем.
Есть сетевая программа, запущенная на разных машинах и мне необходимо установить, когда все из нее выйдут.
Есть файлы, которые эта программа открывает и держит,так что их нельзя заархивировать RAR-ом.
Подскажите пожалуйста, хотя бы в каком направлении рыть. У меня VS2003.
Интересно бы знать, какая машина держит файл, но это не обязательно.

[MIT]

Если по простому - пытаться открыть файл и ловить ошибку, а вот так будет по умному.

[Shurrik]

Огромное спасибо MIT за ссылку, но в статье описаны варианты, которые вряд ли мне подходят. Перечисление всех процессов?
Да у меня более 50 машин в сети и все работают с общими дисками и кучей разных программ.Я сильно сомневаюсь, что такое перечисление будет быстро работать. Первый вариант с открытием файла тоже к сожалению не катит, а перемещать (удалять вообще нельзя) мне очень не хочется. Можно ловить ошибку самого RAR-а при архивировании одного файла, но это как-то непроффесионально.
Может все-таки есть какой-то простой способ.

[Shurrik]

Эврика!
Важно не просто открыть файл, а открыть без общего доступа!

Код: Выделить всё

    Private Function Dostup(ByVal fn As String) As Boolean
        Try
            If File.Exists(fn) Then
                Dim fs As FileStream = New FileStream(fn, FileMode.Open, FileAccess.Read, FileShare.None)
                fs.Close() : Return True
            End If
        Catch ex As Exception : Return False
        End Try
    End Function


Это должно работать. Сегодня же проверю на работе.

[773FF]

А может быть Вам просто выполнить теневое копирование файла, а потом его архивировать (http://www.alphaleonis.com/2009/04/alphavss-and-alphafs-10-both-reached-beta/)?
Или нужно обязательно дожидаться освобождения файла?

[Shurrik]

Скопировать а потом заархивировать я могу. Но такая копия мне не нужна, так как программа при работе блокирует записи баз с которыми работает. И после восстановления из копии программу просто выбивает без указания причины,а поиск блокированных записей в сотнях баз - это такая головная боль!
Тот вариант, который я выложил обладает еще одным полезным свойством. Если файл открыть и не закрывать, то ни одна машина не может запустить программу. Все происходит корректно, программа жалуется на ошибку и сама закрывается. А я могу лазить совершенно безопасно по самим базам и редектировать их. Это и есть основная проблема, нодо предупредить всех пользователей не входить в программу, когда я занимаюсь корректировкой баз. А потом опять дать им зеленый свет. Создание копии - это возможность отката. Очень часто кто-то забыл или отсутствовал, когда давался запрет и входит в программу. Вот тогда без матюков просто не обойтись, так как проходится начинать все с начала, а вся предыдущая работа идет на смарку.
Всем, кто ответил большое спасибо!

[Денис]

Это и есть основная проблема, нодо предупредить всех пользователей не входить в программу, когда я занимаюсь корректировкой баз.

Боже мой! А про монопольный режим доступа к БД Вы и не знали?

[Shurrik]

Денис, твой вопрос скорее к разработчику этой долбаной программы, а не ко мне. Я вынужден пользоваться тем, что спустили сверху. А проблема возникает именно из-за моего монопольного доступа к одной из баз. Другой пользователь входит, натыкается на эту базу, программа или виснет или ее просто выбивает. В результате новые ошибки где-то еще, так как базы сильно завязаны друг на друга. Все ошибки с которыми приходится бороться - результат действий операторов, которые работают вполне корректно, это программы !!!!!! такая. О, боженька, замени этого DOS-урода на что-нибудь другое.

[Денис]

Shurrik
Слишком много восклицательных знаков >_<
Да, если бы у тебя был доступ к структуре БД (я имею ввиду даже не доступ, а санкцию на изменение этой структуры), то можно было бы просто поступить: создается таблица, в ней всего одна запись и одно поле типа Boolean. Это поле - флаг монопольного режима. Если программа работает не в режиме администратора, то по таймеру проверяет значение флага, если True, то выводим сообщение, типа "В программе проводится обновление. Надо выйти." и одна кнопка "ОК" и таймер автоматического нажатия на кнопку через секунд 10.
Конечно, если бы база была нормальная, промышленная, то этих танцев с бубном вообще бы не понадобилось.