Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.79/34: Рейтинг темы: голосов - 34, средняя оценка - 4.79
1 / 1 / 0
Регистрация: 17.01.2013
Сообщений: 11
1

Получить список файлов в указанном каталоге

07.02.2013, 23:44. Просмотров 6300. Ответов 4
Метки нет (Все метки)

Как получить список файлов в указаном каталоге? И находить файлы с указаным расширением или именем?


Пример: В каталоге D:\test нужно найти все файлы с (Вариант 1: расширением .jpg; Вариант 2: с фразой "123" в имени) и вывести их на экран (желательно с атрибутами (дата создания\изменения , размер).

Заранее спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.02.2013, 23:44
Ответы с готовыми решениями:

Перевести код с C# - получить список файлов, перетащенных в окно программы
вод код string FileArr=(string)E.Data.GetData(DataFormats.FileDrop,false) где E это ...

Поиск файлов в каталоге по определенным атрибутам
Информационная запись о файле содержит следующие поля: каталог, имя файла, расширение, дата и...

Изменение свойств всех подкаталогов и файлов в каталоге
Программа собирает все каталоги( и все подкаталоги) и файлы в них в текущем каталоге(каталог, в...

Поиск всех доступных файлов в заданном каталоге
всем доброго времени суток, вот столкнулся с такой проблемой. есть например любой каталог например...

4
154 / 136 / 51
Регистрация: 28.11.2009
Сообщений: 460
Записей в блоге: 14
07.02.2013, 23:58 2
Вариант 1:
Pascal
1
2
3
4
5
6
7
Uses System.IO;
 
begin
var files := Directory.GetFiles('D:\test', '*.jpg',SearchOption.AllDirectories);
for var i:=0 to files.Length-1 do
writeln(files[i]);
end.
Вариант 2:
Pascal
1
2
3
4
5
6
7
Uses System.IO;
 
begin
var files := Directory.GetFiles('D:\test', '*123*.*',SearchOption.AllDirectories);
for var i:=0 to files.Length-1 do
writeln(files[i]);
end.
1
1 / 1 / 0
Регистрация: 17.01.2013
Сообщений: 11
08.02.2013, 00:41  [ТС] 3
Спасибо вам, А как насчет атрибутов? Это возможно?


P.S. Можете еще сделать такой вариант, что бы искало например .jpg и .gif и .ico одновременно? (суть в том что-бы искало несколько параметров сразу)

Буду очень благодарен за помощь)

Добавлено через 10 минут
Еще, забыл, можно ли так сделать что бы в "найденых" писало не весь путь к файлу, а просто название и расширение?
0
154 / 136 / 51
Регистрация: 28.11.2009
Сообщений: 460
Записей в блоге: 14
08.02.2013, 01:10 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses System.IO;
 
begin
var files := Directory.GetFiles('D:\test', '*.jpg',SearchOption.AllDirectories);
var files2 := Directory.GetFiles('D:\test', '*.ico',SearchOption.AllDirectories);
var files3 := Directory.GetFiles('D:\test', '*.gif',SearchOption.AllDirectories);
files := files.Concat(files2).ToArray();
files := files.Concat(files3).ToArray();
for var i:=0 to files.Length-1 do
begin
writeln(files[i]);
writeln('дата создания ', System.IO.File.GetCreationTime(files[i]));
writeln('дата последнего изменения ', System.IO.File.GetLastWriteTime(files[i]));
var fi := new FileInfo(files[i]);
writeln('размер в кб ',fi.Length div 1024);
end;
end.
Pascal
1
function ExtractFileName(fname: string): string;
Выделяет имя из файла из полного имени файла fname
3
1 / 1 / 0
Регистрация: 17.01.2013
Сообщений: 11
08.02.2013, 01:31  [ТС] 5
Спасибо большое, очень помогли!)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.02.2013, 01:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вывести количество файлов с указанными именами, которые имеются в текущем каталоге
Даны имена четырех файлов. Вывести количество файлов с указанными именами, которые имеются в...

Список файлов в указанном каталоге
Использую функцию FindFirstFile: hf = FindFirstFile(L"c:\\folder\\*", &FindFileData); Такой...

Получить список всех поддиректорий в указанном каталоге
Помогите создать список подпапок в текущей папке. Мой код не помогает Dim a a = Dir(CurDir,...

Список файлов, хранящихся в указанном первым параметром каталоге и созданных в первом полугодии
Здравствуйте! открыв данный форум сразу нашел идентичное задание, только к сожалению ни кто не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.