1,7 → 1,11 |
program filefind; |
Uses sysutils; |
Uses sysutils; |
var directory : string; |
|
// ============================================================================ |
// Functions |
// ============================================================================ |
|
procedure traverse(directory : string); |
var curdir1, curdir2 : string; |
Info : TSearchRec; |
31,6 → 35,10 |
traverse(directory); |
end; |
|
// ============================================================================ |
// Main |
// ============================================================================ |
|
begin |
directory := ParamStr(1); |
if (ParamCount = 1) |