Question

delphi如何自动提取文件路径保存到SQL数据库中

比如在文件夹D:\test\下有1.txt 2.exe 3.bat 4.jpg ...
如何实现delphi自动扫描D:\test\下的所有文件，并把这些文件的路径保存在SQL数据库中？

Answer 1

可以使用FindFirst和FindNext函数查找文件，如：
begin
Found := FindFirst("d:\test\*.*", Attr, SearchRec);
while Found = 0 do
begin
//处理找出来的文件
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;

TSearchRec类型定义如下：
type
TSearchRec = record
Time : Integer;
Size : Integer;
Attr : Integer;
Name : TFileName;
ExcludeAttr : Integer;
FindHandle : THandle;
FindData : TWin32FindData;
end;