home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
vp21beta.zip
/
LEXMPSRC.RAR
/
LIST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
2000-08-15
|
1KB
|
50 lines
{█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
{█ █}
{█ Virtual Pascal for Linux █}
{█ Test example for FindFirst/-Next/-Close █}
{█ ─────────────────────────────────────────────────█}
{█ Copyright (C) 1999 Joerg Pleumann █}
{█ █}
{▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
program List;
uses
Dos;
var
Name: string;
Info: SearchRec;
Y, M, D, H, N, S: Word;
DT: DateTime;
begin
FileSystem := fsDos;
WriteLn('Enter a search pattern, e.g. ".\*.txt", press <Enter>)');
ReadLn(Name);
FindFirst(Name, AnyFile, Info);
if DosError = 0 then
begin
repeat
Write(Info.Name:20, Info.Size:10, ' ');
UnpackTime(Info.Time, DT);
with DT do
Write(Year:4, '/', Month:2, '/', Day:2, ' ', Hour:2, ':', Min:2, ':', Sec:2, ' ');
if Info.Attr and ReadOnly <> 0 then Write('ReadOnly ');
if Info.Attr and Directory <> 0 then Write('Directory ');
WriteLn;
FindNext(Info);
until DosError <> 0;
FindClose(Info);
end;
end.