如何得到指定目录下的所有文件名？(50分)

vericky · 2002-10-23

如题所示

dz2050 · 2002-10-23

findfirst findnext

yangxiao_jiang · 2002-10-23

转贴 轻轻松松查找文件   在平常的编程当中，经常会碰到查找某一个目录下某一类文件或者所有文件的问题，为了适应不同的需要，我们经常不得不编写大量的类似的代码，有没有可能写一个通用的查找文件的程序，找到一个文件后就进行处理的呢？这样我们只要编写处理文件的部分就可以了，不需要编写查找文件的部分！答案是肯定的。下面的这个程序就能实现这个功能！ //说明： //TFindCallBack为回调函数，FindFile函数找到一个匹配的文件之后就会调用这个函数。 //TFindCallBack的第一个参数找到的文件名，你在回调函数中可以根据文件名进行操作。 //TFindCallBack的第二个参数为找到的文件的记录信息，是一个TSearchRec结构。 //TFindCallBack的第三、四个参数分别为决定是否终止文件的查找，临时决定是否查找某个子目录！ //FindFile的参数： //第一个决定是否退出查找，应该初始化为false； //第二个为要查找路径； //第三个为文件名，可以包含Windows所支持的任何通配符的格式；默认所有的文件 //第四个为回调函数，默认为空 //第五个决定是否查找子目录，默认为查找子目录 //第六个决定是否在查找文件的时候处理其他的消息，默认为处理其他的消息 //若有意见和建议请E_Mail：Kingron@163.net type   TFindCallBack=procedure (const filename:string;const info:TSearchRec;var bQuit,bSub:boolean); procedure FindFile(var quit:boolean;const path: String;const filename:string='*.*';                    proc:TFindCallBack=nil;bSub:boolean=true;const bMsg:boolean=true); var   fpath: String;   info: TsearchRec;  procedure ProcessAFile;  begin   if (info.Name<>'.') and (info.Name<>'..') and ((info.Attr and faDirectory)<>faDirectory) then   begin   if assigned(proc) then     proc(fpath+info.FindData.cFileName,info,quit,bsub);   end;  end;  procedure ProcessADirectory;  begin   if (info.Name<>'.') and (info.Name<>'..') and ((info.attr and fadirectory)=fadirectory) then     findfile(quit,fpath+info.Name,filename,proc,bsub,bmsg);  end; begin if path[length(path)]<>'/' then   fpath:=path+'/' else   fpath:=path; try   if 0=findfirst(fpath+filename,faanyfile and (not fadirectory),info) then   begin     ProcessAFile;     while 0=findnext(info) do       begin         ProcessAFile;         if bmsg then application.ProcessMessages;         if quit then           begin             findclose(info);             exit;           end;       end;   end; finally   findclose(info); end; try   if bsub and (0=findfirst(fpath+'*',faanyfile,info)) then     begin       ProcessADirectory;       while findnext(info)=0 do         ProcessADirectory;     end; finally   findclose(info); end; end; 例子： procedure aaa(const filename:string;const info:tsearchrec;var quit,bsub:boolean); begin   form1.listbox1.Items.Add(filename);   quit:=form1.qqq;   bsub:=form1.checkbox1.Checked; end; procedure TForm1.Button1Click(Sender: TObject); begin listbox1.Clear; qqq:=false; button1.Enabled:=false; findfile(qqq,edit1.text,edit2.text,aaa,checkbox1.checked,checkbox2.checked); showmessage(inttostr(listbox1.items.count)); button1.Enabled:=true; end; procedure TForm1.Button2Click(Sender: TObject); begin qqq:=true; end;

hryyx · 2002-10-23

procedure TForm1.Button1Click(Sender: TObject); var   sr: TSearchRec;   FileAttrs: Integer; begin   StringGrid1.RowCount := 1;   if CheckBox1.Checked then     FileAttrs := faReadOnly   else     FileAttrs := 0;   if CheckBox2.Checked then     FileAttrs := FileAttrs + faHidden;   if CheckBox3.Checked then     FileAttrs := FileAttrs + faSysFile;   if CheckBox4.Checked then     FileAttrs := FileAttrs + faVolumeID;   if CheckBox5.Checked then     FileAttrs := FileAttrs + faDirectory;   if CheckBox6.Checked then     FileAttrs := FileAttrs + faArchive;   if CheckBox7.Checked then     FileAttrs := FileAttrs + faAnyFile;   with StringGrid1 do   begin     RowCount := 0;     if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then     begin       repeat         if (sr.Attr and FileAttrs) = sr.Attr then         begin         RowCount := RowCount + 1;         Cells[1,RowCount-1] := sr.Name;         Cells[2,RowCount-1] := IntToStr(sr.Size);         end;       until FindNext(sr) <> 0;       FindClose(sr);     end;   end; end;

vine · 2002-10-23

procedure findall(disk,path: String; var fileresult: Tstrings); var fpath: String; fs: TsearchRec; begin fpath:=disk+path+'/*.*'; if findfirst(fpath,faAnyFile,fs)=0 then begin if (fs.Name<>'.')and(fs.Name<>'..') then if (fs.Attr and faDirectory)=faDirectory then findall(disk,path+'/'+fs.Name,fileresult) else fileresult.add(disk+strpas(strupper(pchar(path)))+'/'+strpas( strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')'); while findnext(fs)=0 do begin if (fs.Name<>'.')and(fs.Name<>'..') then if (fs.Attr and faDirectory)=faDirectory then findall(disk,path+'/'+fs.Name,fileresult) else fileresult.add(disk+strpas(strupper(pchar(path)))+'/'+str pas(strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')'); end; end; findclose(fs); end; 读取返回值fileresult.items即可

kkyy · 2002-10-23

用API的话就同上面那些，不过我有的时候是用一个文件列表框得到的，比较省代码，呵呵。

yanghai0437 · 2002-10-23

最简单的办法用filelistbox,你只要修改他的Directory属性为你的目录，然后 就可以用FileListBox1.Items.Strings可以得到所有的文件名。

vericky · 2002-10-25

多人接受答案了。

如何得到指定目录下的所有文件名？(50分)

vericky

Unregistered / Unconfirmed

dz2050

Unregistered / Unconfirmed

yangxiao_jiang

Unregistered / Unconfirmed

hryyx

Unregistered / Unconfirmed

vine

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

yanghai0437

Unregistered / Unconfirmed

vericky

Unregistered / Unconfirmed

Similar threads