|
Создание ТЧ с именами файлов в директории
| ☑ |
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) - как получить информацию о файле
|
|