怎样把一个目录下所以的文件导入数据库

Question

findfirst
findnext
看看看帮助文件。你会学会使用的

Answer 1

procedure TForm1.GetAllFiles(MainPath: String);
var
  nI: Integer;
  SearchRec: TSearchRec;
  sFileName: String;
  sMainpath: String;
begin  if MainPath[Length(MainPath)]='\' then  sMainpath:=MainPath
  else sMainpath:=MainPath+'\';
  FindFirst(sMainPath+'*.*',faAnyFile,SearchRec);
  if SearchRec.Name<>'' then
  begin
    sFileName:=UpperCase(SearchRec.Name);
    listbox1.items.Add(sMainPath+SearchRec.Name);
    if (SearchRec.Attr and faDirectory)=1 then
      if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
        GetAllFiles(sMainPath+SearchRec.Name);
    while  (FindNext(SearchRec)=0) do
    begin
      sFileName:=UpperCase(SearchRec.Name);
      listbox1.items.Add(sMainPath+SearchRec.Name);
      if (SearchRec.Attr and faDirectory)=faDirectory then
        if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
          GetAllFiles(sMainPath+SearchRec.Name);
    end;
  end;end; 

Answer 2

多谢trainbox(战友战友亲如兄弟)，但我只是一只菜鸟，请问你段代码怎样用