echo ************************************************************ 

echo Setup param: 

echo ************************************************************ 

set __1c_path=C:\Program Files (x86)\1cv82\common\1cestart.exe

set __base_name=zup_msk

set __base_path=E:\Accounting\Staff\zup_msk

set __upload_path=D:\Backup1C

set __username=Backup

set __password=123420

echo ******************

echo Create folder:

echo ******************

md "%__upload_path%\%__base_name%" 

echo ************************************************************ 

echo Create backup: 

echo ************************************************************ 

"%__1c_path%" config /Out"%__upload_path%\%__base_name%\%__base_name%.log" /F"%__base_path%" /N"%__username%" /P"%__password%" /DumpIB"%__upload_path%\%__base_name%\%__base_name%-%date%.dt"    

 echo ************************************************************ 

echo Setup param: 

echo ************************************************************ 

set __1c_path=C:\Program Files (x86)\1cv82\common\1cestart.exe

set __base_name=crm

set __base_path=server1C\db_crm

set __upload_path=D:\Backup1C

set __username=Backup

set __password=123420

echo ******************

echo Create folder:

echo ******************

md "%__upload_path%\%__base_name%" 

echo ************************************************************ 

echo Create backup: 

echo ************************************************************ 

"%__1c_path%" config /Out"%__upload_path%\%__base_name%\%__base_name%.log" /S"%__base_path%" /N"%__username%" /P"%__password%" /DumpIB"%__upload_path%\%__base_name%\%__base_name%-%date%.dt"    

 ПереместитьФайл("C:\Temp\Order.htm", "C:\My Documents\Order.htm");    

 Если НайтиФайлы("C:\est.txt") <> Неопределено Тогда 

    ПереместитьФайл("C:\est.txt", "C:\estnew.txt"); 

    Сообщить("Файл перемещен."); 

Иначе 

    Сообщить("Действие не выполнено. Файл в источнике не найден."); 

КонецЕсли;   

 ФС.ПереименоватьФайл("transinvcust.dbf", "st.dbf"); 

 WshShell=СоздатьОбъект("WScript.Shell");

КодВозвр=WshShell.Run("RENAME C:\folder\test.txt test1.txt");

 КомандаСистемы("ren c:\A.txt B.txt"); 

 objFSO = Новый COMОбъект("Scripting.FileSystemObject"); 

objFolder = objFSO.GetFolder("C:\_1"); 

objFolder.Name = "_21";   

 // Пробуем подключиться

		Попытка

			Соединение = Новый FTPСоединение(FTPСервер,FTPПорт,FTPПользователь,FTPПароль, ,Ложь);

			Массив = Соединение.НайтиФайлы(FTPКаталогЗагрузки, "*.csv");

			Если Не Массив.Количество() = 0 Тогда

				Для Каждого Стр Из Массив Цикл

					//Проверяем, есть ли файл в каталоге, если нет - то грузим

					КаталогНаДиске = Новый Файл(КаталогЗагрузкиДанных+"\"+Стр.Имя);

					Если НЕ КаталогНаДиске.Существует() Тогда

						ИмяФайла = КаталогЗагрузкиДанных+"\"+Стр.Имя;

						Соединение.Получить(Стр.ПолноеИмя, ИмяФайла); 	

					КонецЕсли;	

				КонецЦикла;

			Иначе	

				Сообщить("Нет файлов!");

			КонецЕсли;			 

		Исключение

			Сообщить("Ошибка подключения FTP!!!");

		КонецПопытки;	 		

   

 

Функция ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, ТекущаяПапка=Неопределено)

	Рез = Истина;

	Если ТекущаяПапка = Неопределено Тогда ТекущаяПапка = НачальнаяПапкаВыгрузкиКомп КонецЕсли; 

	МассивФайлов = НайтиФайлы(ТекущаяПапка, "*");

	ТекКаталог = СтрЗаменить(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(ТекущаяПапка, НачальнаяПапкаВыгрузкиКомп, ""), "\", "/"), "//", "/");

	Если Прав(ТекКаталог, 1) <> "/" Тогда

		ТекКаталог = ТекКаталог + "/";

	КонецЕсли;

	

	Для Каждого НайденныйФайл Из МассивФайлов Цикл

		Файл = Новый Файл(НайденныйФайл.ПолноеИмя);

		Если Файл.ЭтоКаталог() Тогда

			ЕстьТакаяПапка = Соединение.НайтиФайлы(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.Путь, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/"), НайденныйФайл.Имя).Количество() > 0;

			

			Если не ЕстьТакаяПапка Тогда

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

					КонецПопытки;

				КонецЦикла;

				Если Не Успешно Тогда

					Возврат Ложь;

				КонецЕсли;

				

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

						Соединение.СоздатьКаталог(НайденныйФайл.Имя);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", каталог " + НайденныйФайл.Имя + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

					КонецПопытки;

				КонецЦикла;

				

				Если Не Успешно Тогда

					Возврат Ложь;

				КонецЕсли;

				

				

			КонецЕсли;

			

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.ПолноеИмя, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/") + "/");

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

				КонецПопытки;

			КонецЦикла;

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

			

			ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, НайденныйФайл.ПолноеИмя);



			Если не Рез Тогда

				Возврат Ложь;

			КонецЕсли;

			

		Иначе

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

				КонецПопытки;

			КонецЦикла;

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

		

			

			

			// почему-то иногда при большой выгрузке глюкает ((

			// а со второй попытки выкладывается.... странно...

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.Записать(НайденныйФайл.ПолноеИмя, НайденныйФайл.Имя);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", файл " + НайденныйФайл.ПолноеИмя + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

				КонецПопытки;

			КонецЦикла;

			

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

			

			#Если Клиент Тогда

				Состояние("Выгрузка файла: " + НайденныйФайл.ПолноеИмя);

			#КонецЕсли

			

		КонецЕсли;

	КонецЦикла;

	

	Возврат Рез;

	

КонецФункции





// ПРИМЕР обращения к функции

КаталогиДляПередачиНаFTP = Новый Соответствие;

// цикл и в нем

КаталогиДляПередачиНаFTP.Вставить(СсылкаНаЭлементСправочника);

// Конец цикла



// Теперь Выгрузим все на FTP

	Для Каждого Выборка из КаталогиДляПередачиНаFTP Цикл

	ВыборкаДетальныеЗаписи = Выборка.Ключ;

	Соединение = Новый FTPСоединение(ВыборкаДетальныеЗаписи.FTPСервер,

	ВыборкаДетальныеЗаписи.FTPПорт,

	ВыборкаДетальныеЗаписи.FTPПользователь,

	ВыборкаДетальныеЗаписи.FTPПароль, ,Ложь);

	ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, ВыборкаДетальныеЗаписи.FTPКаталогВыгрузки, ВыборкаДетальныеЗаписи.КаталогВыгрузкиДанных);

	КонецЦикла;

   

 // Удаление каталога и всех вложенных в него каталогов и файлов

Попытка

    УдалитьФайлы("C:\temp\Works"); 

Исключение

    Сообщить(ОписаниеОшибки());

КонецПопытки;   

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

Попытка

		    УдалитьФайлы(КаталогВыгрузкиДанных, "*.csv"); 

		Исключение

			#Если Клиент Тогда

				Сообщить(ОписаниеОшибки());

			#КонецЕсли

    	КонецПопытки;

   

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

 //или 

 ФС.УдалитьФайл(Стр);

 // пример привел  smaharbA

//Данный пример не работает, если в папке есть файлы с атрибутами только для чтения и системные

Функция Рекурсия(Знач Путь,Сп)

    Перем А;

    ФСО=СоздатьОбъект("ФС");

    Стр=ФСО.НайтиПервыйФайл(Путь+"\*.*");

    Пока ПустоеЗначение(Стр)=0 Цикл

        Если (Стр<>"..") и (Стр<>".") Тогда

            Представление="";

            Для к=1 По СтрЧислоВхождений(Путь+"\"+Стр,"\") Цикл

                Представление=Представление+"\";

            КонецЦикла;

            Сп.ДобавитьЗначение(Путь+"\"+Стр,Представление+Стр);

            ФСО.АтрибутыФайла(Путь+"\"+Стр,,А);

            Если Сред(А,4,1)="1" Тогда

                Рекурсия(Путь+"\"+Стр,Сп);

            КонецЕсли;

        КонецЕсли;

        Стр=ФСО.НайтиСледующийФайл();

    КонецЦикла;

КонецФункции    // Рекурсия 

//******************************************* 

Процедура Сформировать()

    Перем Каталог,А;

    Если ФС.ВыбратьКаталог(Каталог,"")=0 Тогда

        Возврат;

    КонецЕсли;

    Сп=СоздатьОбъект("СписокЗначений");

    Рекурсия(Каталог,Сп);

    Сп.СортироватьПоПредставлению(0);

    Для к=1 По Сп.РазмерСписка() Цикл

        Стр=Сп.ПолучитьЗначение(к);

        ФС.АтрибутыФайла(Стр,,А);

        Если Сред(А,4,1)="1" Тогда

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

        Иначе

            ФС.УдалитьФайл(Стр);

        КонецЕсли;

    КонецЦикла;

    ФС.УстТекКаталог(Каталог+"\..\");

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

КонецПроцедуры

  // Загрузка файлов на FTP сервер

Процедура ЗагрузитьОтмеченные(Кнопка)

Сервер = Новый FTPСоединение(FTPServer);

Для Каждого Файл Из ПолеСписка Цикл

   Если Файл.Пометка Тогда

     Сервер.Получить(Файл.Значение.ПолноеИмя, "с:\temp" + Файл.Значение.ПолноеИмя);

     Файл.Пометка = Ложь;

   КонецЕсли;

КонецЦикла;

КонецПроцедуры



// Просмотр файлов на FTP сервере

Процедура Просмотреть(Кнопка)

Сервер = Новый FTPСоединение(FTPServer);

МассивФайлов = Сервер.НайтиФайлы("/","*.*");

Для Каждого Файл Из МассивФайлов Цикл

   Если Файл.ЭтоФайл() Тогда

     ПолеСписка.Добавить(Файл, Файл.Имя)

   КонецЕсли;

КонецЦикла;

КонецПроцедуры    

  ПапкаКонтрагена = "Kontr";

    Попытка

        ИмяFTPСервера               = "*******";

        ПортFTPСоединения           = "21";

        ПользовательFTPСоединения   = "****" ;

        ПарольFTPСоединения         =  "*****" ;

        ПассивноеFTPСоединение      =  Ложь;

        Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения,ПользовательFTPСоединения,ПарольFTPСоединения, ,ПассивноеFTPСоединение);

        Массив = Соединение.НайтиФайлы("/"+ПапкаКонтрагена+"/", "");

        Если Массив.Количество() = 0 Тогда

           Соединение.СоздатьКаталог(ПапкаКонтрагена);           

         КонецЕсли;

        Соединение.УстановитьТекущийКаталог(ПапкаКонтрагена);

        Соединение.Записать(ИмяФайлаЗаписи, "file.txt"); 

    Исключение

        Сообщить("Ошибка записи файла на FTP!!!");

        Возврат ""; 

    КонецПопытки;

   

  // Передать файл по FTP

Процедура ПередатьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт

    Если ПутьФТП = Неопределено Тогда

        ТекПутьФТП = ПараметрыСеанса.FTPПуть;

    Иначе

        ТекПутьФТП = ПутьФТП;

    КонецЕсли;    

    

    //создаем скрипт для соединения и отправки

    Скрипт=Новый ТекстовыйДокумент;

    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);

    Скрипт.ДобавитьСтроку("user");

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);

    Скрипт.ДобавитьСтроку("binary");

    

   //при необходимости входим в каталог, возможно, таких команд будет несколько

    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);

    Скрипт.ДобавитьСтроку("put "+ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);

    Скрипт.ДобавитьСтроку("bye");

    

    //записываем скрипт на диск

    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");

    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");



    //а теперь запускаем его выполнение

    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");

КонецПроцедуры



// Получить файл по FTP

Процедура ПолучитьПоFTP(ИмяФайла,ПутьФТП=Неопределено) Экспорт

    Если ПутьФТП = Неопределено Тогда

        ТекПутьФТП = ПараметрыСеанса.FTPПуть;

    Иначе

        ТекПутьФТП = ПутьФТП;

    КонецЕсли;    

    

    //создаем скрипт для соединения и отправки

    Скрипт=Новый ТекстовыйДокумент;

    Скрипт.ДобавитьСтроку("open "+ПараметрыСеанса.FTP);

    Скрипт.ДобавитьСтроку("user");

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPЛогин);

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.FTPПароль);

    Скрипт.ДобавитьСтроку("binary");



    //при необходимости входим в каталог, возможно, таких команд будет несколько

    Скрипт.ДобавитьСтроку("cd "+ТекПутьФТП);

    Скрипт.ДобавитьСтроку("get");

    Скрипт.ДобавитьСтроку(ИмяФайла);

    Скрипт.ДобавитьСтроку(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+ИмяФайла);

    Скрипт.ДобавитьСтроку("bye");

 

   //записываем скрипт на диск

    Файл = Новый Файл(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt");

    Скрипт.Записать(ПараметрыСеанса.ПутьКФайлуОбраза+"\"+"ftp.txt", "windows-1251");



    //а теперь запускаем его выполнение

    КомандаСистемы("ftp -n -s:"+ПараметрыСеанса.ПутьКФайлуОбраза+"\ftp.txt");

КонецПроцедуры   

 // Пример от 0xFFFFFF

// Может быть проблема в том, что 1С естественно не дожидается окончания перемещения файлов (movehere) 

// и пока копируются файлы, код продолжает выполняться далее.



Функция ОтправитьФайлыЧерезFTP()          

    //подключаемся, отправляем

    Попытка

        Шел=СоздатьОбъект("shell.application");

        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьИсходящих));

         ПапкаИсточник=Шел.namespace(КаталогИсходящих);

        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);

        Предупреждение("Подключение к FTP серверу...",1);    

        Темы=ПапкаИсточник.items();

        ПапкаЗагруженных.copyhere(Темы);

        //Темы.filter(64,"*.txt"); 

         ПапкаФТП.movehere(Темы);

    Исключение                  

        Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");

        Возврат 0;

    КонецПопытки;  

    

    //проверяем

     ФС.УстТекКаталог(КаталогИсходящих);

    ПопытокПроверки = 3;

    Для Сч = 1 По ПопытокПроверки Цикл

        Если НЕ ((СокрЛП(ФС.НайтиПервыйФайл("*.*"))="") или (СокрЛП(ФС.НайтиПервыйФайл("*.*"))=".")) Тогда

            Если Сч = ПопытокПроверки Тогда

                Предупреждение("Внимание! Не удалось передать файлы адресату через FTP! Попробуйте совершить обмен позже.");

                Возврат 0;

            КонецЕсли;

            Предупреждение("Передача файлов....", 3);

        КонецЕсли;

    КонецЦикла;

    

    Возврат 1;

КонецФункции



Функция ПолучитьФайлыЧерезFTP()          

    //подключаемся

     Попытка

        Шел=СоздатьОбъект("shell.application");

        ПапкаФТП=Шел.namespace("ftp://" +СокрЛП(ФТП_Пользователь)+ ":" +СокрЛП(ФТП_Пароль)+ "@" + СокрЛП(ФТП_УРЛ) + "/" +СокрЛП(ФТП_ПутьВходящих));

 

        ПапкаПриемник=Шел.namespace(КаталогВходящих);   

        ПапкаЗагруженных = Шел.namespace(КаталогЗагруженных);

        Предупреждение("Подключение к FTP серверу...",1);

        Темы=ПапкаФТП.items();

        ПапкаЗагруженных.copyhere(Темы);

        //Темы.filter(64,"*.txt");                             

         ПапкаПриемник.movehere(Темы);

    Исключение                  

        Предупреждение("Внимание! Не удалось получить файлы через FTP! Возможно, параметры FTP заданы неверно, либо отсутствует связь.");

        Возврат 0;

    КонецПопытки;  

    

    //проверяем

    ПопытокПроверки = 3;

    Для Сч = 1 По ПопытокПроверки Цикл

        Если ПапкаФТП.items().count>0 Тогда

            Если Сч = ПопытокПроверки Тогда

                Предупреждение("Внимание! Не удалось получить файлы через FTP! Попробуйте совершить обмен позже.");

                Возврат 0;

            КонецЕсли;

            Предупреждение("Получение файлов....", 3);

        КонецЕсли;

    КонецЦикла;

    

    Возврат 1;             

КонецФункции

  //БЛОК ВЫГРУЗКИ НА ФТП 

    ТекстВыгрузки.Записать(КаталогПользователя()+(ИмяПрайса+".csv"));

    ТекстВыгрузки = "";

    ТекстВыгрузки = СоздатьОбъект("Текст");

    ТекстВыгрузки.ДобавитьСтроку("open " + "192.168.0.1"); //адрес

    ТекстВыгрузки.ДобавитьСтроку("****"); //логин

    ТекстВыгрузки.ДобавитьСтроку("*****"); //пароль

    ТекстВыгрузки.ДобавитьСтроку("put " + КаталогПользователя() + (ИмяПрайса+".csv"));

    ТекстВыгрузки.ДобавитьСтроку("bye");

    ТекстВыгрузки.Записать(КаталогПользователя() + "ftp.txt");

    ТекстВыгрузки = "";

    

    КомандаСистемы("ftp -s:" + КаталогПользователя() + "Ftp.txt>> " + (КаталогПользователя() + "report.txt"));

    ФС.УдалитьФайл(КаталогПользователя() + "ftp.txt");

    

    ТекстВыгрузки = СоздатьОбъект("Текст");

    ТекстВыгрузки.Открыть(КаталогПользователя() + "report.txt");

    КС = ТекстВыгрузки.КоличествоСтрок()-4; //если все нормально - то в этой строке файла должно быть соотв.сообщение

 

   //проверим его 

    Попытка 

        строкаКомплете = ТекстВыгрузки.ПолучитьСтроку(КС);

        Если  Найти(Нрег(строкаКомплете),"226 transfer complete") = 0

        Тогда а=1; а=а/0;

        КонецЕсли;

        тПротокол = ТекущееВремя()+" файл данных успешно отправлен на сервер интернет-магазина"+РазделительСтрок+тПротокол;

        Форма.Обновить();

        ТекстВыгрузки = "";

        ФС.УдалитьФайл(КаталогПользователя() + (ИмяПрайса+".csv"));

        ФС.УдалитьФайл(КаталогПользователя() + "report.txt");

    Исключение

        тПротокол = ТекущееВремя()+" ПРОИЗОШЛА ОШИБКА ВО ВРЕМЯ ЗАГРУЗКИ СФОРМИРОВАННОГО ФАЙЛА НА СЕРВЕР ИНЕТРНЕТ-МАГАЗИНА"+РазделительСтрок+тПротокол;

        тПротокол = ТекущееВремя()+ИмяПрайса+РазделительСтрок+тПротокол;

        Форма.Обновить();

        ТекстВыгрузки.Показать();

        ТекстВыгрузки = "";

    КонецПопытки;