Имя: Пароль:
1C
 
Проверка из 1С блокировки файла приложением
0 Admin_Net_1C
 
27.06.07
08:00
Подскажите пожалуйста, есть ли возможность в 1С проверить "занят" файл каким либо приложением или нет
1 smaharbA
 
27.06.07
08:03
есть, только приложение не определить чиста средствами 1С
2 Admin_Net_1C
 
27.06.07
08:07
(1) не обязательно знать само приложение которое работает с файлом, нужно просто определить факт занят файл или свободен
3 smaharbA
 
27.06.07
08:29
Для не очень большых файлов, ну до 3 мег хотябы

//*******************************************
Процедура Сформировать()
   Перем Имя,Путь,Атрибуты;
   Если ФС.ВыбратьФайл(0,Имя,Путь,"","Все файлы (*.*)|*.*","*")=0 Тогда
       Возврат;
   КонецЕсли;
   ФайлПроверки=КаталогВременныхФайлов()+_GetPerformanceCounter()+".txt";
   КомандаСистемы(Шаблон("type ""[Путь+Имя]"" 1>nul 2>""[ФайлПроверки]"""));
   Текст=СоздатьОбъект("Текст");
   Текст.КодоваяСтраница(1);
   Текст.Открыть(ФайлПроверки);
   Для к=1 По Текст.КоличествоСтрок() Цикл
       Сообщить(Текст.ПолучитьСтроку(к));
   КонецЦикла;
   ФС.УдалитьФайл(ФайлПроверки);
КонецПроцедуры