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

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

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

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

СообщениеДобавлено: Вт май 17, 2022 10: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 12:27
Den
Без попытки открыть файл фиг знает как
А так ...как то так

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




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

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

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