Имя: Пароль:
1C
1С v8
Создание ТЧ с именами файлов в директории
0 MishGun Official
 
25.06.14
10:53
Добрый день! Подскажите начинающему настройщику 1С: Дали задание создать обработку которая поместит в табличную часть имя и дату создания всех файлов в определенной директории на ПК. В интернете подсказок по созданию такой функции не нашел (нашел только, по чтению 1 или двух файлов через выбор в диалоговом окне).
1 Maxus43
 
25.06.14
10:59
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

ДиалогОткрытияФайла.Выбрать();

Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла);

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

Сообщить(Текст);
2 Wobland
 
25.06.14
11:00
найти файлы
3 mistеr
 
25.06.14
11:03
СоздатьОбъект("Scripting.FileSystemObject");
4 MishGun Official
 
25.06.14
11:04
(1) Maxus43 Спасибо, конечно, но в этом коде также используется выбор файла через диалоговое окно, а мне нужно выбрать сразу все файлы в директории и поместить их в табличную часть. Потому что это будет обработка которая, проверяет дату создания файлов и удаляет старые
5 Лодырь
 
25.06.14
11:06
Как вариант КомандаСистемы("dir >>1.txt") и распарсить.
6 Fish
 
25.06.14
11:08
(4) Тогда (2)
7 ДенисЧ
 
25.06.14
11:12
НайтиФайлы и из массива в тз перелить с получением нужной информации
8 Maxus43
 
25.06.14
11:13
(4) комбинируй (2) и (1), в (1) - как получить информацию о файле