Код для получения списка файлов на 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.