СобытиеФайловойСистемыАрг.Имя (FileSystemEventArgs.Name) Свойство

Копировать     Выделить всё

Перем Ф;

Процедура НаблюдательФайловойСистемы1_ПриИзменении() Экспорт
	Аргументы = Ф.СобытиеФайловойСистемыАрг();
	Сообщить("Аргументы.Имя = " + Аргументы.Имя);
	Сообщить("Аргументы.ПолныйПуть = " + Аргументы.ПолныйПуть);
	Сообщить("Аргументы.ТипИзменения = " + Аргументы.ТипИзменения);
	Сообщить("==========================");
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

НаблюдательФайловойСистемы1 = Ф.НаблюдательФайловойСистемы();
НаблюдательФайловойСистемы1.Путь = Ф.Окружение().ПолучитьПутьКаталога(Ф.ОсобаяПапка.Личное);
НаблюдательФайловойСистемы1.ВключаяПодкаталоги = Истина;
НаблюдательФайловойСистемы1.КомпонентДоступен = Истина;
НаблюдательФайловойСистемы1.ПриИзменении = Ф.Действие(ЭтотОбъект, "НаблюдательФайловойСистемы1_ПриИзменении");

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

Перем Ф;

Процедура НаблюдательФайловойСистемы1_ПриИзменении() Экспорт
	Аргументы = Ф.СобытиеФайловойСистемыАрг();
	// Сообщить("Аргументы.Имя = " + Аргументы.Имя);
	// Сообщить("Аргументы.ПолныйПуть = " + Аргументы.ПолныйПуть);
	// Сообщить("Аргументы.ТипИзменения = " + Аргументы.ТипИзменения);
	// Сообщить("==========================");
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

НаблюдательФайловойСистемы1 = Ф.НаблюдательФайловойСистемы();
НаблюдательФайловойСистемы1.Путь = Ф.Окружение().ПолучитьПутьКаталога(Ф.ОсобаяПапка.Личное);
НаблюдательФайловойСистемы1.ВключаяПодкаталоги = Истина;
НаблюдательФайловойСистемы1.КомпонентДоступен = Истина;
НаблюдательФайловойСистемы1.ПриИзменении = Ф.Действие(ЭтотОбъект, "НаблюдательФайловойСистемы1_ПриИзменении");

Сообщить(?(
НаблюдательФайловойСистемы1.ПриИзменении.ИмяМетода = "НаблюдательФайловойСистемы1_ПриИзменении"
, "", "!!! ") + "СобытиеФайловойСистемыАрг.Имя (FileSystemEventArgs.Name) Свойство" + " " + ТекущаяДата());