home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
ipo-101.zip
/
Samples.zip
/
DIRPAS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1998-11-15
|
290b
|
14 lines
program dirpas(output);
begin
case platform of
platform_linux:
exec('ls -l', '*.pas');
platform_fbsd:
exec('ls -l', '*.pas');
otherwise
exec('dir', '*.pas');
end;
if exitcode <> 0 then
writeln('Error listing directory', exitcode)
end.