&НаКлиенте
Процедура КомандаОбрW1C(Команда)
	Режим = РежимДиалогаВыбораФайла.ВыборКаталога; 
	ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); 
	ДиалогОткрытия.Каталог = ""; 
	ДиалогОткрытия.МножественныйВыбор = Ложь; 
	ДиалогОткрытия.Заголовок = "Выберите каталог с Файлами"; 
	Если ДиалогОткрытия.Выбрать() Тогда 
		ПутьККаталогу = ДиалогОткрытия.Каталог; 	
		
		ВыбранКаталог = НайтиФайлы(ПутьККаталогу, "*.*");
		Для каждого НайденныйФайл Из ВыбранКаталог Цикл
			Если НайденныйФайл.ЭтоКаталог() Тогда //Каталог
				//каталоги пока не трогаем
			ИначеЕсли НайденныйФайл.Расширение=".w1c" Тогда // Файл для обработки				
				Сообщить(НайденныйФайл.ПолноеИмя);
				ОбработатьФайл(НайденныйФайл.ПолноеИмя);
			КонецЕсли; 
		КонецЦикла;
	КонецЕсли; 	    
	
КонецПроцедуры  


&НаКлиенте
Процедура ОбработатьФайл(ТекФайл)
	//Прочитаем текст файла
	ОбрФайл = Новый ТекстовыйДокумент;
	ОбрФайл.Прочитать(ТекФайл,"UTF-8");
	врТекст = ОбрФайл.ПолучитьТекст();
	врМассив = РазложитьСтрокуВМассив(врТекст,"<&w1c&>");
	/// Переформируем структуру файла
	новТекст = СокрЛП(врМассив[0])+"<&w1c&>"; 
	новТекст = новТекст + СокрЛП(врМассив[1])+"<&w1c&>"+"1<&w1c&>"; 
	//Получим атрибуты файла
	АтрибутыФайла = Новый Файл(ТекФайл);
	новТекст = новТекст + Формат(АтрибутыФайла.ПолучитьВремяИзменения(),"ДФ=dd/MM/yyyy")+"<&w1c&>";
	новТекст = новТекст + СокрЛП(врМассив[2])+"<&w1c&>"; 
	новТекст = новТекст + СокрЛП(врМассив[3])+"<&w1c&>"; 
	новТекст = новТекст + СокрЛП(врМассив[4])+"<&w1c&>"; 
	новТекст = новТекст + СокрЛП(врМассив[5])+"<&w1c&>"; 
	новТекст = новТекст + "no-mods<&w1c&>"; 
	новТекст = новТекст + СокрЛП(врМассив[6])+"<&w1c&>";
	новТекст = новТекст + СокрЛП(врМассив[7]);
	// Запишем в тот же файл
	ОбрФайл.Очистить();
	ОбрФайл.УстановитьТекст(новТекст);
	ОбрФайл.Записать(ТекФайл,"UTF-8");
	
	//Но нужно получить файл UTF8 без сигнатуры BOM
	 Данные = Новый ДвоичныеДанные(ТекФайл);
    Строка64=Base64Строка(Данные);
    Строка64=Прав(Строка64,СтрДлина(Строка64)-4);
    ДанныеНаЗапись=Base64Значение(Строка64);
    ДанныеНаЗапись.Записать(ТекФайл); // записываем
КонецПроцедуры

//// Вспомогательное
&НаКлиенте
Функция РазложитьСтрокуВМассив(Знач Стр, Разделитель = ",") Экспорт 	
	МассивСтрок = Новый Массив();
	Если Разделитель = " " Тогда
		Стр = СокрЛП(Стр);
		Пока 1=1 Цикл
			Поз = Найти(Стр,Разделитель);
			Если Поз=0 Тогда
				МассивСтрок.Добавить(Стр);
				Возврат МассивСтрок;
			КонецЕсли;
			МассивСтрок.Добавить(Лев(Стр,Поз-1));
			Стр = СокрЛ(Сред(Стр,Поз));
		КонецЦикла;
	Иначе
		ДлинаРазделителя = СтрДлина(Разделитель);
		Пока 1=1 Цикл
			Поз = Найти(Стр,Разделитель);
			Если Поз=0 Тогда
				МассивСтрок.Добавить(Стр);
				Возврат МассивСтрок;
			КонецЕсли;
			МассивСтрок.Добавить(Лев(Стр,Поз-1));
			Стр = Сред(Стр,Поз+ДлинаРазделителя);
		КонецЦикла;
	КонецЕсли;   	
КонецФункции   

 // Удаление каталога и всех вложенных в него каталогов и файлов
Попытка
    УдалитьФайлы("C:\temp\Works"); 
Исключение
    Сообщить(ОписаниеОшибки());
КонецПопытки;   

  // Удалим в каталоге все файлы CSV
Попытка
		    УдалитьФайлы(КаталогВыгрузкиДанных, "*.csv"); 
		Исключение
			#Если Клиент Тогда
				Сообщить(ОписаниеОшибки());
			#КонецЕсли
    	КонецПопытки;
   

  ФС.УдалитьКаталог(Стр);
 //или 
 ФС.УдалитьФайл(Стр);

 // пример привел  smaharbA
//Данный пример не работает, если в папке есть файлы с атрибутами только для чтения и системные
Функция Рекурсия(Знач Путь,Сп)
    Перем А;
    ФСО=СоздатьОбъект("ФС");
    Стр=ФСО.НайтиПервыйФайл(Путь+"\*.*");
    Пока ПустоеЗначение(Стр)=0 Цикл
        Если (Стр<>"..") и (Стр<>".") Тогда
            Представление="";
            Для к=1 По СтрЧислоВхождений(Путь+"\"+Стр,"\") Цикл
                Представление=Представление+"\";
            КонецЦикла;
            Сп.ДобавитьЗначение(Путь+"\"+Стр,Представление+Стр);
            ФСО.АтрибутыФайла(Путь+"\"+Стр,,А);
            Если Сред(А,4,1)="1" Тогда
                Рекурсия(Путь+"\"+Стр,Сп);
            КонецЕсли;
        КонецЕсли;
        Стр=ФСО.НайтиСледующийФайл();
    КонецЦикла;
КонецФункции    // Рекурсия 
//******************************************* 
Процедура Сформировать()
    Перем Каталог,А;
    Если ФС.ВыбратьКаталог(Каталог,"")=0 Тогда
        Возврат;
    КонецЕсли;
    Сп=СоздатьОбъект("СписокЗначений");
    Рекурсия(Каталог,Сп);
    Сп.СортироватьПоПредставлению(0);
    Для к=1 По Сп.РазмерСписка() Цикл
        Стр=Сп.ПолучитьЗначение(к);
        ФС.АтрибутыФайла(Стр,,А);
        Если Сред(А,4,1)="1" Тогда
            ФС.УдалитьКаталог(Стр);
        Иначе
            ФС.УдалитьФайл(Стр);
        КонецЕсли;
    КонецЦикла;
    ФС.УстТекКаталог(Каталог+"\..\");
    ФС.УдалитьКаталог(Каталог);
КонецПроцедуры

 // 1-й вариант
//Как вывести картинку в табличный документ?

ТабДок = Новый ТабличныйДокумент; 
Макет = ОбработкаОбъект.ПолучитьМакет("Макет"); 
ОбластьКартинки = Макет.ПолучитьОбласть("ОбластьСКартинкой"); 
Картинка = Новый Картинка(ПутьККартинке); 

// Элемент управления "Логотип" входит в коллекцию картинок области. 
ОбластьКартинки.Рисунки.Логотип.Картинка = Картинка; 
ТабДок.Вывести(ОбластьКартинки); 

ТабДок.Показать(); 

// 2-й вариант
//Как вывести картинку в табличный документ без изменения макета?

Область = Макет.ПолучитьОбласть("Шапка"); 
Рисунок = Область.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка); 
Рисунок.Верх = 5; 
Рисунок.Высота = 10; 
Рисунок.Ширина = 10; 
Рисунок.Лево = 5; 
Рисунок.Картинка = Новый Картинка(ПутьККартинке); 
Рисунок.РазмерКартинки = РазмерКартинки.РеальныйРазмер; 

ТабДок.Вывести(Область); 

//3-й вариант
//ПечатьОрганизации , добавляем в макет картинку с именем Картинка1 в самую нижнюю
//область с именем ОбластьПечатьОрганизации
ОбластьПечатьОрганизации = Макет.ПолучитьОбласть("ПечатьОрганизации");
Картинка= Новый Картинка("C:\files\img\печатьОрганизации.gif") ;
ОбластьПечатьОрганизации.Рисунки.Картинка1.Картинка = картинка;
ТабДок.Вывести(ОбластьПечатьОрганизации);

// 4-й вариант динамически
ОбластьПечатьОрганизации = Макет.ПолучитьОбласть("ПечатьОрганизации");
КартинкаПечатьОрганизации = ОбластьПечатьОрганизации.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
КартинкаПечатьОрганизации.Картинка = БиблиотекаКартинок.ОбщаяКартинка1;
КартинкаПечатьОрганизации.Верх = 0;
КартинкаПечатьОрганизации.Высота = 80;
КартинкаПечатьОрганизации.Ширина = 80;
КартинкаПечатьОрганизации.Лево = 50;
КартинкаПечатьОрганизации.ГраницаСверху = Ложь;
КартинкаПечатьОрганизации.ГраницаСлева = Ложь;
КартинкаПечатьОрганизации.ГраницаСправа = Ложь;
КартинкаПечатьОрганизации.ГраницаСнизу = Ложь;
КартинкаПечатьОрганизации.РазмерКартинки = РазмерКартинки.АвтоРазмер;
ТабДок.Вывести(ОбластьПечатьОрганизации);

//5-й вариант получение картинки из хранилища значений
// Выборка.Изображение - выборка из запроса, Изображение реквизит -хранил. значений  
Попытка
    Путь = КаталогВременныхФайлов()+ "\1С_Картинка_"+Формат(ТекущаяДата(),"ДФ=yyyyMMddЧЧммсс")+".bmp";
    КартинкаВПамяти = Выборка.Изображение.Получить();
    КартинкаВПамяти.Записать(Путь);
    ОбластьСостав.Рисунки.D1.Картинка = Новый Картинка(Путь);
Исключение
    ОбластьСостав.Рисунки.D1.Картинка = Новый Картинка;
КонецПопытки;
   

 Перем Картинка, ТЗКаталога, ПутьКаталогаРисунков;
//******************************************************************************
Процедура Сформировать1()
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    Картинка = СоздатьОбъект("Картинка");
    т=1;
    ТЗКаталога.ВыбратьСтроки();
    Пока ТЗКаталога.ПолучитьСтроку() = 1 Цикл
        Картинка.Загрузить(ТЗКаталога.Путь);
        Сформировать = т; 
        Таб.ВывестиСекцию("Заголовок");
        т = т+1;
    КонецЦикла;
    Таб.Опции(0,0,0,0);
    Таб.Показать("Сформировать","");
    ТЗКаталога = "";
КонецПроцедуры  
//******************************************************************************
Процедура карт(карт)     //Вызывается из объекта картинка на печатной форме
    карт.РежимРисования(3);
    карт.УстановитьКартинку(Картинка);
КонецПроцедуры      //карт(карт)     Вызывается из объекта картинка на печатной форме
//******************************************************************************
Процедура СканироватьКаталог(Каталог)    
    Перем А;
    ФСО=СоздатьОбъект("ФС");
    Ф=ФСО.НайтиПервыйФайл(Каталог+"*");
    Пока Ф<>"" Цикл
        Если (Ф<>".")И(Ф<>"..") Тогда
            ФС.АтрибутыФайла(Каталог+Ф,,А);
            Если Сред(А,4,1)="1" Тогда 
                СканироватьКаталог(Каталог+Ф+"\");
            Иначе 
                Если (Прав(Ф,4)=".jpg") или (Прав(Ф,4)=".wmf") или (Прав(Ф,4)=".emf") или (Прав(Ф,4)=".ico") или (Прав(Ф,4)=".bmp") или (Прав(Ф,4)=".dib") или (Прав(Ф,4)=".rle") Тогда
                    ТЗКаталога.НоваяСтрока();
                    ТЗКаталога.Путь = Каталог+Ф;
                    ТЗКаталога.Файл = Ф;        //Для поиска файла по имени (исп в другой обработке)
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
        //Сообщить(Каталог+Ф);
        Ф=ФСО.НайтиСледующийФайл();
    КонецЦикла;
КонецПроцедуры  //СканироватьКаталог(Каталог)   
//******************************************************************************
Процедура Сформировать()  
    Если ФС.ВыбратьКаталог(ПутьКаталогаРисунков,"Выберете папку с рисунками .jpg...",60) <> 1 Тогда
        Предупреждение("Рисунки не покажу!"); 
        Возврат;
    Иначе 
        ТЗКаталога = СоздатьОбъект("ТаблицаЗначений");
        ТЗКаталога.НоваяКолонка("Путь",,,,,,,);
        ТЗКаталога.НоваяКолонка("Файл",,,,,,,);
        СканироватьКаталог(ПутьКаталогаРисунков+"\");
    КонецЕсли;
    Сформировать1(); 
КонецПроцедуры    

 ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); 
ДиалогОткрытияФайла.Выбрать(); 

Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла); 
Текст = "Файл: " + Файл.Имя; 
Текст = Текст + Символы.ПС + "Расширение: " + Файл.Расширение; 
Текст = Текст + Символы.ПС + "Полное имя: " + Файл.ПолноеИмя; 
Текст = Текст + Символы.ПС + "Путь: " + Файл.Путь; 
Текст = Текст + Символы.ПС + "Размер: " + Файл.Размер() + " байт"; 
Текст = Текст + ?(Файл.ПолучитьНевидимость(), Символы.ПС + "Невидимый. ", ""); 
Текст = Текст + ?(Файл.ПолучитьТолькоЧтение(), Символы.ПС + "Только чтение.", ""); 
Текст = Текст + Символы.ПС + "Последнее изменение: " + Файл.ПолучитьВремяИзменения(); 
Сообщить(Текст);   

 Сообщить("ИНФОРМАЦИЯ О ОТКРЫТОМ ФАЙЛЕ!","I");
Сообщить("Путь к открытому файлу - " + папк + файл);
ИмяВыбрФайла=папк+файл;
ФС.АтрибутыФайла(ИмяВыбрФайла, A, B, C, D, E, F);
сообщить("Размер Файла - "+A);
сообщить("Количество записей - "+НомС + " , Количество полей - "+КолП ,"!");
сообщить("Время Создания - " + C);
сообщить("Время Последннго Доступа - " + D);
сообщить("Время Последней Записи - " + E);
сообщить("Расширенное Имя Файла - "+ F);