Страница 1 из 1

Проверка открытия файла

Добавлено: 16 май 2022, 18:44
Buddy
Добрый день!
Как средствами языка можно проверить, открыт ли файл по некоторому пути? Файл - Excel-таблица. Путь может быть сетевым, а сам файл может быть открыт и на другой машине, необязательно на той, на которой запускается проверка. Нужно выяснить, не открыт ли он, и если уже открыт, выдать сообщение.
Я сделал проверку на наличие в папке с проверяемым файлом файла с именем "~$" + [имя файла], но это ненадежный способ.

Re: Проверка открытия файла

Добавлено: 17 май 2022, 09:51
KVS
В теории, можно сделать так:

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

ExecProgram('powershell', 'CMD /C "openfiles /query /s ИМЯ_СЕРВЕРА /fo csv | find /I ""*.xlsx"""|Out-File -FilePath c:\открытые_файлы.txt', pfDontWait, 0)
Полученный "открытые_файлы.txt" анализировать объектом file.

Re: Проверка открытия файла

Добавлено: 17 май 2022, 11:27
Den
Без попытки открыть файл фиг знает как
А так ...как то так

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

   _try
  {
   OpenFile('c:\temp\123.xls',StOpen);
  }
    _Except
    On ExFileSharingViolation :{
     Message('Нарушение разделения файла!', Error);
     abort;
     exit;
    }


В документации много исключений может выбрасывать Openfile Найдете...

Re: Проверка открытия файла

Добавлено: 03 июл 2022, 16:39
edward_K
Если файл требуется перезаписать, то можно попробовать удалить - если он будет , то значит либо нет прав, либо кто то открыл.
Если файл требуется открыть на чтение вы можете его открыть в режиме совместного доступа(если кто то открыл на запись скорей всего получите ошибку).