4,24 → 4,24 |
|
procedure traverse(directory : string); |
var curdir1, curdir2 : string; |
Info3 : TSearchRec; |
Info : TSearchRec; |
pfile : string; |
begin |
curdir1 := GetCurrentDir; |
chdir(directory); |
curdir2 := GetCurrentDir; |
FindFirst(directory + '/*', faAnyFile or faHidden, Info3); |
FindFirst(directory + '/*', faAnyFile or faHidden, Info); |
repeat |
if ((Info3.name <> '..') and (Info3.name <> '.')) |
if ((Info.name <> '..') and (Info.name <> '.')) |
then |
begin |
pfile := curdir2 + '/' + Info3.name; |
pfile := curdir2 + '/' + Info.name; |
Writeln(pfile); |
if (DirectoryExists(pfile)) |
then |
traverse(pfile) |
end |
until FindNext(Info3) <> 0; |
until FindNext(Info) <> 0; |
chdir(curdir1); |
end; |
|
33,9 → 33,13 |
|
begin |
directory := ParamStr(1); |
if DirectoryExists(directory) |
if (ParamCount = 1) |
then |
start_traverse(directory) |
if DirectoryExists(directory) |
then |
start_traverse(directory) |
else |
Writeln ('ERROR: Not a directory : ', directory) |
else |
Writeln ('Not a directory : ', directory) |
Writeln('ERROR: Give directory as argument'); |
end. |