Блин, гемор какой то в управляемых приложениях
Не получается определить существует ли файл на диске.
Не получается определить существует ли файл на диске.
&НаСервере
Функция ФайлСуществует(Знач ПутьКФайлу) Экспорт
Файл = Новый Файл(ПутьКФайлу);
Возврат Файл.Существует();
КонецФункции
Процедура ЗагрСправ(Команда)
//ПутьКФайлу = "D:\Выгрузка.dbf";
Сообщить(ФайлСуществует(ПутьКФайлу));
КонецПроцедуры
ПоказатьПо теме из базы знаний
- Универсальные функции с примерами использования
- Скрипт автообновления типовых конфигураций
- Разработка и сценарное тестирование с Vanessa-ADD. Практические примеры сценариев. Шаги встроенной библиотеки
- Загрузка файлов на сервер с использованием HTTP-сервиса 1С (multipart/form-data).
- Выгрузка (сохранение) дополнительных отчетов и обработок в выбранную папку с соблюдением иерархии, предпросмотром и проверкой существования файла
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
все проще
Файл (File)
Существует (Exist)
Синтаксис:
Существует()
Возвращаемое значение:
Тип: Булево.
Истина - файл существует; Ложь - в противном случае.
Описание:
Определяет, существует ли файл, соответствующий данному объекту.
Доступность:
Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Примечание:
Для работы метода на веб-клиенте, необходимо предварительно подключить расширение работы с файлами.
Пример:
Функция ПроверитьСуществованиеКаталога(ИмяКаталога) Экспорт
КаталогНаДиске = Новый Файл(ИмяКаталога);
Если КаталогНаДиске.Существует() Тогда
Возврат Истина;
Иначе
Ответ = Вопрос("Каталог не существует. Создать?",
РежимДиалогаВопрос.ОКОтмена);
Если Ответ = КодВозвратаДиалога.ОК Тогда
СоздатьКаталог(ИмяКаталога);
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
КонецЕсли;
КонецФункции
Файл (File)
Существует (Exist)
Синтаксис:
Существует()
Возвращаемое значение:
Тип: Булево.
Истина - файл существует; Ложь - в противном случае.
Описание:
Определяет, существует ли файл, соответствующий данному объекту.
Доступность:
Тонкий клиент, веб-клиент, сервер, толстый клиент, внешнее соединение.
Примечание:
Для работы метода на веб-клиенте, необходимо предварительно подключить расширение работы с файлами.
Пример:
Функция ПроверитьСуществованиеКаталога(ИмяКаталога) Экспорт
КаталогНаДиске = Новый Файл(ИмяКаталога);
Если КаталогНаДиске.Существует() Тогда
Возврат Истина;
Иначе
Ответ = Вопрос("Каталог не существует. Создать?",
РежимДиалогаВопрос.ОКОтмена);
Если Ответ = КодВозвратаДиалога.ОК Тогда
СоздатьКаталог(ИмяКаталога);
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
КонецЕсли;
КонецФункции
Глобальный контекст.УстановитьРасширениеРаботыСФайлами (Global context.InstallFileSystemExtension)
Глобальный контекст (Global context)
УстановитьРасширениеРаботыСФайлами (InstallFileSystemExtension)
Синтаксис:
УстановитьРасширениеРаботыСФайлами()
Описание:
Устанавливает расширение работы с файлами.
В режиме запуска толстого и тонкого клиентов информирует о том, что расширение установлено.
Доступность:
Тонкий клиент, веб-клиент, толстый клиент.
См. также:
Глобальный контекст, метод ПодключитьРасширениеРаботыСФайлами
Глобальный контекст (Global context)
УстановитьРасширениеРаботыСФайлами (InstallFileSystemExtension)
Синтаксис:
УстановитьРасширениеРаботыСФайлами()
Описание:
Устанавливает расширение работы с файлами.
В режиме запуска толстого и тонкого клиентов информирует о том, что расширение установлено.
Доступность:
Тонкий клиент, веб-клиент, толстый клиент.
См. также:
Глобальный контекст, метод ПодключитьРасширениеРаботыСФайлами
Что за фигня. Создал кнопку, создал команду, связал их. У команды прописал действие, написал процедуру $НаСервере
Поставил точку остановы в начале процедуры, в самой первой строчке. Запускаю, тыкаю, никаких действий. Что за беда?((
Поставил точку остановы в начале процедуры, в самой первой строчке. Запускаю, тыкаю, никаких действий. Что за беда?((
НайденныеФайлы = НайтиФайлы( ПутьКФайлу, "ИмяФайла.Расширение", Истина); //проверит в каталоге, включая вложенные подкаталоги
Если НайденныеФайлы.Количество() = 0 Тогда
Сообщить("СоздатьНовый!");
Иначе
Для Каждого Файл Из НайденныеФайлы Цикл
ИмяФайла = Файл.ПолноеИмя;
КонецЦикла;
КонецЕсли;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот