Subversion Repositories svn.Prod repos

Rev

Rev 31 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
29 - 1 
program filefind;
31 - 2 
Uses	sysutils;
29 - 3 
var	directory : string;
37 - 4 
var	progname : string;
29 - 5 
 
31 - 6 
// ============================================================================
7 
// Functions
8 
// ============================================================================
9 
 
37 - 10 
procedure Usage(mesg : string);
11 
begin
12 
	Writeln('Usage: ' + progname + ' directory');
13 
	Writeln(mesg);
14 
end;
15 
 
29 - 16 
procedure traverse(directory : string);
17 
var	curdir1, curdir2 : string;
30 - 18 
	Info : TSearchRec;
29 - 19 
	pfile : string;
20 
begin
21 
	curdir1 := GetCurrentDir;
22 
	chdir(directory);
23 
	curdir2 := GetCurrentDir;
30 - 24 
	FindFirst(directory + '/*', faAnyFile or faHidden, Info);
29 - 25 
	repeat
30 - 26 
		if ((Info.name <> '..') and (Info.name <> '.'))
29 - 27 
		then
28 
			begin
30 - 29 
			pfile := curdir2 + '/' + Info.name;
29 - 30 
			Writeln(pfile);
31 
			if (DirectoryExists(pfile))
32 
			then
33 
				traverse(pfile)
34 
			end
30 - 35 
	until FindNext(Info) <> 0;
29 - 36 
	chdir(curdir1);
37 
end;
38 
 
39 
procedure start_traverse(directory : string);
40 
begin
41 
	Writeln(directory);
42 
	traverse(directory);
43 
end;
44 
 
31 - 45 
// ============================================================================
46 
// Main
47 
// ============================================================================
48 
 
29 - 49 
begin
37 - 50 
	progname := ParamStr(0);
29 - 51 
	directory := ParamStr(1);
30 - 52 
	if (ParamCount = 1)
29 - 53 
	then
30 - 54 
		if DirectoryExists(directory)
55 
		then
56 
			start_traverse(directory)
57 
		else
37 - 58 
			Usage('ERROR: Not a directory : ' + directory)
29 - 59 
	else
37 - 60 
		Usage('ERROR: 1 argument expected');
29 - 61 
end.