Код для получения списка файлов на PASCAL ABC.NET
Post date: Nov 18, 2013 6:05:56 PM
uses
System.IO;
var
i: integer;
dirName: string; { название директории }
kFiles: integer; { количество файлов }
dir: DirectoryInfo; { информация о директории }
filesLens: array of integer; { массив для хранения длин }
filesNames: array of string; { массив для хранения имен файлов}
filesList : array of FileInfo; { список файлов/директорий }
begin
repeat
writeln('Введите директорию');
readln(dirName);
dir := new DirectoryInfo(dirName);
until dir.Exists = true; { проверка на существование директории }
writeln;
{ получение списка файлов директории }
writeln('Исходный список файлов');
filesList := dir.GetFiles(); { массив данных о файлах }
{ создание массивов для хранения имен файлов и их размеров}
SetLength(filesLens, length(filesList));
SetLength(filesNames, length(filesList));
kFiles := length(filesList) - 1;
{ заполнение массивов имен файлов и их размеров }
for i := 0 to kFiles do
begin
filesNames[i] := filesList[i].Name; { получение имени файла }
filesLens[i] := filesList[i].Length;{ получение размера файла }
writeln(filesNames[i], ' ', filesLens[i], ' bytes');
end;
writeln;
end.