1С

1С: Работа с внешними файлами. Базовые операции

Опубликовано:

Описание

Примеры копирования файла, перемещения файла, удаления файла, получения свойств файла, проверки наличия файла.

Другое в 1С

Работа с внешними файлами

Оглавление (нажмите, чтобы раскрыть)

Диалог выбора файла

Пример реализации диалога выбора файла в 1С 
ДиалогОткрытия = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	ДиалогОткрытия.ПолноеИмяФайла = "";
	Фильтр = "Excel файлы(*.xls;*.xlsx)|*.xls;*.xlsx";
	
	ДиалогОткрытия.Фильтр = Фильтр;
	ДиалогОткрытия.МножественныйВыбор = Истина;
	ДиалогОткрытия.Заголовок = "Выберите файл";
	
	Если ДиалогОткрытия.Выбрать() Тогда
		
		МассивВыбранныхФайлов = ДиалогОткрытия.ВыбранныеФайлы;
		
		Для Каждого ИмяВыбранногоФайла Из МассивВыбранныхФайлов Цикл
		ВыбранныйФайл = Новый Файл(ИмяВыбранногоФайла);
		Сообщить(ИмяВыбранногоФайла
		+ "; Размер = "
		+ ВыбранныйФайл.Размер());
		КонецЦикла;

	Иначе
		Предупреждение("Нет выбранны файлов!");
	КонецЕсли;

Копировать файл

Пример копирования файла из 1С 

КопироватьФайл(ПутьКФайлу, ПутьКопированияФайла);

Найти файлы в каталоге

Пример поиска файлов в каталоге из 1С 
// возвращает массив значений типа Файл
    МассивНайденныхФайлов = НайтиФайлы(
        "c:\", // где искать
        "*.txt", // маска поиска
        Ложь // если Истина, то будет искать и в подкаталогах
    );
 
    Для Каждого Файл Из МассивНайденныхФайлов Цикл
        Сообщить("Найден " + Файл.ПолноеИмя);
    КонецЦикла;

Переместить файл

Пример перемещения файла из 1С 

ПереместитьФайл(ПутьКФайлу,НовыйПутьКФайлу);

Получить свойство файла

Пример получения свойства файла из 1С 

НашФайл = Новый Файл(ПутьКФайлу);
//размер файла (байт)
РазмерФайла = НашФайл.Размер();
//имя файла без расширения
Имя = НашФайл.ИмяБезРасширения;
//расширение файла (включая точку)
Расширение = НашФайл.Расширение;
//полный путь к каталогу файла
Путь = НашФайл.Путь;
//атрибут "только чтение"
ТолькоЧтение = НашФайл.ПолучитьТолькоЧтение();
//время последнего изменения файла
ВремяИзменения = НашФайл.ПолучитьВремяИзменения();
//Истина, если это файл
ЭтоФайл = НашФайл.ЭтоФайл();
//Истина, если это каталог
ЭтоКаталог = НашФайл.ЭтоКаталог();

Проверить наличие файла

Пример проверки наличия файла из 1С 

//проверяем наличие файла
НашФайл = Новый Файл(ПутьКФайлу);
Если НашФайл.Существует() Тогда
    Сообщить("Файл существует");
КонецЕсли;

Удалить файл

Пример удаления файла из 1С 

Попытка
	УдалитьФайлы(ПутьКФайлу);
	Сообщить("Файл удален");
Исключение
	Сообщить(ОписаниеОшибки());
КонецПопытки;

Удалить файлы в каталоге по маске

Пример удаления внешнего файла в каталоге по маске из 1С 
  УдалитьФайлы(
        "c:\codely", // заведомо не существующий каталог
        "*.txt" // маска для поиска удаляемых файлов
    ); // если опустить маску, то удалятся все файлы и каталог
Ключи: |