rt

解决方案 »

  1.   

    // ================================================================
    // 遍历某个文件夹下某种文件,
    // 使用说明
    //       _GetFileList(ListBox1.Items,'c:\*.doc');
    //           _GetFileList(MyTStringList,'c:\*.exe');
    // ================================================================
    procedure TForm1._GetFileList(AStrings: TStrings ; ASourFile: string);
    var sour_path,sour_file: string;
        TmpList:TStringList;
        FileRec:TSearchrec;
    begin   sour_path:=ExtractFilePath(ASourFile);
       sour_file:=ExtractFileName(ASourFile);   if not DirectoryExists(sour_path) then
       begin
         AStrings.Clear;
         exit;
       end;   TmpList:=TStringList.Create;
       TmpList.Clear;   if FindFirst(sour_path+sour_file,faAnyfile,FileRec) = 0 then
       repeat
          if ((FileRec.Attr and faDirectory) = 0) then
             begin
               TmpList.Add(sour_path+FileRec.Name)
             end;
       until FindNext(FileRec)<>0;   SysUtils.FindClose(FileRec);   AStrings.Assign(TmpList);   TmpList.Free;
    end;
      

  2.   

    meiqingsong(阿飛)
    给出的答案不能到子目录中去,作一个递归就行了哈。:)
      

  3.   

    to  drift1981(一包香烟,一把吉他,浪迹天涯!) : 是文件名!
    能有遍历子文件夹的更好!
      

  4.   

    能遍历子文件夹
    procedure TForm1._GetFileList(AStrings: TStrings ; ASourFile: string);
    var sour_path,sour_file: string;
        TmpList:TStringList;
        FileRec:TSearchrec;
        i: Integer;
    begin   sour_path:=ExtractFilePath(ASourFile);
       sour_file:=ExtractFileName(ASourFile);   if not DirectoryExists(sour_path) then
       begin
         AStrings.Clear;
         exit;
       end;   TmpList:=TStringList.Create;
       TmpList.Clear;   if FindFirst(sour_path+sour_file,faAnyfile,FileRec) = 0 then
       repeat
          if ((FileRec.Attr and faDirectory) = 0) then
             begin
               TmpList.Add(sour_path+FileRec.Name)
             end
          else
          if ((FileRec.Name<> '.') and (FileRec.Name  <> '..')) then
            _GetFileList(memo1.Lines, sour_path+ FileRec.Name + '\' + sour_file);
       until FindNext(FileRec)<>0;   SysUtils.FindClose(FileRec);
       for i := 0 to TmpList.Count -1 do
       AStrings.Add(TmpList.Strings[i]);   TmpList.Free;
    end;
      

  5.   

    // ================================================================
    // 遍历某个文件夹及子文件夹下某种文件,
    // 使用说明
    //       _GetFileList(ListBox1.Items, 'c:\', '*.doc');
    //           _GetFileList(MyTStringList, 'c:\', '*.exe');
    // ================================================================
    procedure _GetFileList(AStrings: TStrings; ASourFile,
      FileName: string);
    var sour_path,sour_file: string;
        TmpList:TStringList;
        FileRec, subFileRec:TSearchrec;
        i: Integer;
    begin
       if rightStr(trim(ASourFile), 1) <> '\' then
         sour_path :=trim(ASourFile) + '\'
       else
         sour_path :=trim(ASourFile);
       sour_file:= FileName;   if not DirectoryExists(sour_path) then
       begin
         AStrings.Clear;
         exit;
       end;   TmpList:=TStringList.Create;
       TmpList.Clear;   if FindFirst(sour_path+'*.*',faAnyfile,FileRec) = 0 then
       repeat
          if ((FileRec.Attr and faDirectory) <> 0) then
             begin
               if ((FileRec.Name<> '.') and (FileRec.Name  <> '..')) then
                 _GetFileList(AStrings, sour_path+ FileRec.Name + '\',  sour_file);
             end
          else
            if FindFirst(sour_path + FileName,faAnyfile,subFileRec) = 0 then
            repeat
              if ((subFileRec.Attr and faDirectory) = 0) then
                TmpList.Add(sour_path+subFileRec.Name);
            until FindNext(subFileRec)<>0;   until FindNext(FileRec)<>0;   SysUtils.FindClose(FileRec);
       for i := 0 to TmpList.Count -1 do
         AStrings.Add(TmpList.Strings[i]);   TmpList.Free;
    end;