mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2025-09-21 22:53:51 +02:00
59 lines
1.6 KiB
ObjectPascal
59 lines
1.6 KiB
ObjectPascal
program ReadFolderApp;
|
|
|
|
uses
|
|
KolibriOS, CRT;
|
|
|
|
type
|
|
TInt64Rec = packed record
|
|
Lo, Hi: LongWord;
|
|
end;
|
|
|
|
const
|
|
FolderPath = '/sys';
|
|
|
|
var
|
|
FolderInformation: TFolderInformation;
|
|
BlocksRead: LongWord;
|
|
Pos: LongWord;
|
|
|
|
begin
|
|
ConsoleInit('Read Folder');
|
|
|
|
if ReadFolder(FolderPath, FolderInformation, 0, 0, 0, BlocksRead) = 0 then
|
|
with FolderInformation do
|
|
Write('Folder "%s" contains %u files and/or folders.'#10#10, FolderPath, FileCount)
|
|
else
|
|
Write('Folder "%s" can not be read.'#10, FolderPath);
|
|
|
|
Pos := 0;
|
|
while ReadFolder(FolderPath, FolderInformation, 1, Pos, 0, BlocksRead) = 0 do
|
|
begin
|
|
with FolderInformation, FileInformation[0] do
|
|
begin
|
|
Write('FileName = %s'#10, Name);
|
|
with Attributes do
|
|
begin
|
|
Write( 'SizeLo = %u'#10, TInt64Rec(Size).Lo);
|
|
Write( 'SizeHi = %u'#10, TInt64Rec(Size).Hi);
|
|
with Modify.Date do
|
|
Write('Modify Date = %02d.%02d.%02d'#10, Day, Month, Year);
|
|
with Modify.Time do
|
|
Write('Modify Time = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
|
|
with Access.Date do
|
|
Write('Access Date = %02d.%02d.%02d'#10, Day, Month, Year);
|
|
with Access.Time do
|
|
Write('Access Time = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
|
|
with Creation.Date do
|
|
Write('Creation Date = %02d.%02d.%02d'#10, Day, Month, Year);
|
|
with Creation.Time do
|
|
Write('Creation Time = %02d:%02d:%02d'#10, Hours, Minutes, Seconds);
|
|
Write( 'Attributes = 0x%08x'#10, Attributes);
|
|
end;
|
|
end;
|
|
Write(#10);
|
|
Inc(Pos);
|
|
end;
|
|
|
|
ConsoleExit(False);
|
|
end.
|