有关DOS文件目录列表的操作

文件属性：
其中00H为读写，01H为只读，02H为隐藏，04H为系统，08H为卷标，10H为子目录，20H为归档（只要完成了写操作并已关闭，则该位置就置为1）

uses dos;
var
seac: searchrec;
dt:datetime;
count:longint;
st:string;
filecount,dircount:longint;
function t(x:WORD):string;
begin
t:=chr(x div 10 +48)+chr(x mod 10 +48)
end;
procedure disp(filename:string);
var s:string;
begin
s:=filename+'\*.*' ;
writeln;
writeln('DIR '+filename+'\');
writeln('===================');
seac.name:='';
findfirst(s,$10,seac);
if seac.name<>''
then begin
while seac.name<>'' do
begin
if (seac.name<>'.') and (seac.name<>'..')
then begin
if seac.attr=32 then begin
unpacktime(seac.time,dt);
write(dt.year,'-',t(dt.month),'-',t(dt.day),' ',t(dt.hour),':',t(dt.min),':',t(dt.sec),' ');
writeln(seac.size:12,' ',filename+'\'+seac.name);
filecount:=filecount+1;
end
else if seac.attr=16 then begin
unpacktime(seac.time,dt);
write(dt.year,'-',t(dt.month),'-',t(dt.day),' ',t(dt.hour),':',t(dt.min),':',t(dt.sec),' ');
writeln(' <DIR> ',filename+'\'+seac.name);
dircount:=dircount+1;
end;
end;
seac.name:='';
findnext(seac);
end;
end;
end;
begin
readln(st);
count:=0;
disp(st);
writeln;
writeln(filecount,' Files Found.');
writeln(dircount,' Dirs Found.');
end.

就是一个普通的DIR命令。
你可以不输出目录，直接用erase，哈哈哈。
查看子目录，直接用递归即可扫描全硬盘。
只要输入“C：” ， “D：”，“E：”就可找到所有文件和子目录。
禁止做坏事。 后果自负。我不负责的。