±éÀúÖ¸¶¨Ä¿Â¼ÏÂÖ¸¶¨ÀàÐÍÎļþµÄº¯Êý£¨×ªÔØ£©

±éÀúÖ¸¶¨Ä¿Â¼ÏÂÖ¸¶¨ÀàÐÍÎļþµÄº¯Êý

// ================================================================

// ±éÀúij¸öÎļþ¼ÐÏÂijÖÖÎļþ,

// Ê¹ÓÃ˵Ã÷

//      ©ú¡G _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;