| 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. |