怎样在一个目录内得到多个word文件的路径，并通过数据库将文件的路径逐个储存起来？(100分)

如上题

findfirst结构不行吗？如果行，不管你用什么，你都可以将文件路径储存起来。

给你个函数吧，可以遍历任何目录下的所有word文件，用GetAllFileName('c:')可以找出c盘的
所有word文件了。至于写入数据库你就自己看着办吧。
procedure TForm1.GetAllFileName(SourcePath:String);
var
Found:Integer;
sr: TSearchRec;
begin
Found:=FindFirst(SourcePath+'/*.*',faAnyFile,sr);
while Found=0 do
begin //!!!

if (sr.Name='.') or (sr.Name='..') then //如果是父目录则推出进入下次循环
begin
Found := FindNext(sr);
continue;
end
else
begin
if not(sr.Attr and faDirectory > 0) and (ExtractFileExt(sr.name)='.doc') then //非子目录且为word文件
begin
Memo1.Lines.Add(SourcePath+'/'+sr.Name) ; //将文件的路径写到Memo中，你可以写到数据库中
end
else //是子目录
GetAllFileName(SourcePath+'/'+sr.Name);
end;
Found:= FindNext(sr);
end;
FindClose(sr);
end;

多人接受答案了。