高分求购以下代码，各位大虾来帮忙啊。关于文件操作的。(200分)

ch_yahuu2 · 2002-10-29

如果在指定目录下查找最近被修改过的一个扩展名为aaa的文件。并得到文件名。 比如c:/abc/中有１０个文件，其中扩展名为aaa的５个。要求在这5个文件中找到最近一个被 修改的文件。请大虾们给出完整的代码。谢谢。

人在昆明 · 2002-10-29

留下信箱

ch_yahuu2 · 2002-10-29

ch_yahuu@163.com 先谢谢了。

ch_yahuu2 · 2002-10-29

怎么没人说话了啊？高手啊。我要高手啊。楼上的兄弟怎么不回话了啊。邮件也还没有给我发啊 功能解决了。马上就给分啊。。。。 给大家两个参考的东西。可是我不知道用什么方法可以读出TStringList中的数据： 第一个： //具体参数：mainpath，路径；fileextern：扩展名；filename：获得的文件列表； procedure SearchFile(mainpath,FileExtern:string;var FileName:TStringList); procedure SearchFile(Mainpath,FileExtern:string;var FileName:TStringList); var         Status: Integer;         SearchRec: TSearchRec;         function SlashSep(const Path, S: string): string;         begin                 if AnsiLastChar(Path)^ <> '/' then                         Result := Path + '/' + S                 else                 Result := Path + S;         end; begin         Status:= FindFirst(SlashSep(Mainpath,FileExtern),faAnyFile,SearchRec);         while Status=0 do         begin                 FileName.Add(SearchRec.Name);                 Status:=FindNext(SearchRec);         end;         FindClose(SearchRec); end; 第二个： size := FileSize(f);  //文件长度 sText := ExtractFileExt(filename) ;  //文件扩展名 Stext:=FormatDateTime('yyyy-mm-dd hh:nn:ss',FGetFileTime(filename,0));  //文件创建时间 Stext:=FormatDateTime('yyyy-mm-dd hh:nn:ss',FGetFileTime(filename,1));  //文件修改时间 Stext:=FormatDateTime('yyyy-mm-dd',FGetFileTime(filename,2));  //文件最后访问日期 然后就是时间相比较了。请如如何比较。什么方法简单点，速度快点。 希望有高手通过上面的参考给我一个如主题的代码。先谢谢了。

iapollo · 2002-10-29

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, FileCtrl,Graphics, Controls, Forms, Dialogs,   StdCtrls, Buttons; type   TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     Edit1: TEdit;     Label1: TLabel;     Edit2: TEdit;     Label2: TLabel;     BitBtn1: TBitBtn;     LabelTotal: TLabel;     Label3: TLabel;     procedure Button1Click(Sender: TObject);     procedure BitBtn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   Total:integer; implementation {$R *.DFM} function IsValidDir(SearchRec:TSearchRec):integer; begin if (SearchRec.Attr <> 16) and  (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then Result:=0 else if (SearchRec.Attr = 16) and  (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then Result:=1 else Result:=2; end; Procedure SearchFile(mainpath:string;filename:string;foundresult:TStrings;var Num:integer); var i:integer; Subdir1:TStrings; searchRec:TsearchRec; begin if Trim(filename)<>'' then begin if (FindFirst(mainpath+Filename, faAnyFile, SearchRec)=0) then  Begin   repeat     if IsValidDir(SearchRec)=0 then       begin Inc(Num); foundresult.Add(mainpath+SearchRec.Name) end;     application.ProcessMessages ;   until (FindNext(SearchRec) <> 0);  end; FindClose(SearchRec); //这是递归部分，查找各子目录。 Subdir1:=TStringList.Create;//字符串列表必须动态生成 if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then begin  repeat   if IsValidDir(SearchRec)=1 then  Subdir1.Add(SearchRec.Name);   application.ProcessMessages ;  until (FindNext(SearchRec) <> 0); end; FindClose(SearchRec); for i:=0 to Subdir1.Count-1 do  Searchfile(mainpath+Subdir1.Strings+'/',Filename,foundresult,Num); //资源释放并返回结果。 Subdir1.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); var  i,f:Integer;  rf:String;  tmpDate:TDateTime; Begin memo1.lines.Clear ; Total:=0; SearchFile(Edit2.Text,Edit1.Text,memo1.lines, Total); LabelTotal.Caption :=format('查找文件总数为：%d',[Total]); for i := 0 to Memo1.Lines.Count-1 do begin   f := FileOpen(Memo1.Lines, fmOpenRead);   if i=0 then begin      tmpDate:=fileDateToDateTime(FileGetDate(f));      rf:=Memo1.Lines[0];   end;   //比较时间   if fileDateToDateTime(fileGetDate(f))>tmpDate then begin      tmpDate:=fileDateToDateTime(fileGetDate(f));      rf:=Memo1.Lines;   end;   FileClose(f); end;  //显示符合要求的文件。  showmessage(rf);  label3.Caption:=rf; end; procedure TForm1.BitBtn1Click(Sender: TObject); var dir:string; begin if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then  Begin    if length(dir) > 3 then dir:=dir+'/';    Edit2.Text := dir;  end; end; end.

ch_yahuu2 · 2002-10-29

楼上的大哥。那个SelectDirectory是什么意思。delphi不认他啊。 我把bitbton1设为注解后可以编译通过。但我试了还是不行。无任何显示。 你能给我改成直接查找c:/abc  目录下的所有扩展名为exe的且修改日期为最近的文件。 然后把这个文件名在edit1中显示出来吗？ 如成功的话。马上给分。 因为我已知道我要查找的文件所在的目录了。

iapollo · 2002-10-29

我刚把原文件全部传上去，你自个下吧！ http://iapollo.diy.163.com/mywork/delphi/findfile.rar 还有就是那个selectDirectory是FileCtrl单元的。

linsb · 2002-10-30

type   TFileTimeType = (fttCreation, fttLastAccess, fttLastWrite); function GetFileDateTime(const FileName: string; FileTimeType: TFileTimeType): string; var   Handle: THandle;   FindData: TWin32FindData;   LocalFileTime: TFileTime;   DosDateTime: Integer; begin   Result := '';   Handle := FindFirstFile(PChar(FileName), FindData);   if Handle <> INVALID_HANDLE_VALUE then   begin     Windows.FindClose(Handle);     if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then     begin       case FileTimeType of         fttCreation: FileTimeToLocalFileTime(FindData.ftCreationTime, LocalFileTime);         fttLastAccess: FileTimeToLocalFileTime(FindData.ftLastAccessTime, LocalFileTime);         fttLastWrite: FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);       end;       if FileTimeToDosDateTime(LocalFileTime, LongRec(DosDateTime).Hi, LongRec(DosDateTime).Lo) then         Result := FormatDateTime('yyyy-mm-dd hh:mm:ss', FileDateToDateTime(DosDateTime));     end;   end; end; procedure TForm1.Button1Click(Sender: TObject); var   temp,i,t: Longint;   filename: string; begin   listbox1.Items.Clear;   Total := 0;   temp := 0;   t:=0;   SearchFile(Edit2.Text, Edit1.Text, listbox1.Items, Total);   LabelTotal.Caption := format('查找文件总数为：%d', [Total]);   for i := 0 to listbox1.Items.count - 1 do begin     filename := listbox1.Items;     if GetFileTime(FileName) > temp then     begin        temp := GetFileTime(FileName);        t:=i;     end;   end;   //找到最近一个被修改的文件   Label5.Caption :='路径：'+ExtractFilePath(listbox1.Items[t]);   Label3.Caption :='文件名：'+ExtractFileName(listbox1.Items[t]);   Label4.Caption :='修改时间：'+ GetFileDateTime(listbox1.Items[t],fttLastWrite); end;

jsxjd · 2002-10-30

procedure TForm1.Button2Click(Sender: TObject); var   sr: TSearchRec;   FileAttrs: Integer;   t,nt:TDateTime;   f:String; begin   f:='';   t:=0;   FileAttrs :=faAnyFile;   if FindFirst('c:/abc/*.aaa', FileAttrs, sr) = 0 then   begin       if (sr.Attr and FileAttrs) = sr.Attr then       begin         f:=sr.Name;         t:=FileDateToDateTime(sr.time);       end;       while FindNext(sr) = 0 do       begin         if (sr.Attr and FileAttrs) = sr.Attr then         begin           nt:=FileDateToDateTime(sr.time);           if (t<nt) then           begin             t:=nt;             f:=sr.Name;           end;         end;       end;       FindClose(sr);   end;   showmessage(f); end;

ch_yahuu2 · 2002-10-30

多人接受答案了。

高分求购以下代码，各位大虾来帮忙啊。关于文件操作的。(200分)

ch_yahuu2

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

ch_yahuu2

Unregistered / Unconfirmed

ch_yahuu2

Unregistered / Unconfirmed

iapollo

Unregistered / Unconfirmed

ch_yahuu2

Unregistered / Unconfirmed

iapollo

Unregistered / Unconfirmed

linsb

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

ch_yahuu2

Unregistered / Unconfirmed

Similar threads