如何获取d盘下及d盘文件夹下所有“.jpg” 文件名。

[KJHM]

求助：如何获取“d盘下及d盘文件夹下所有“.jpg” 文件名，添加到listbox？

[lyhoo163]

procedure TForm1.GetFileToListBox(srcPath,sExt: string);
var FileRec: TSearchrec;
    currPath : string;
begin
  if srcPath[Length(srcPath)] <> '\' then srcPath := srcPath + '\';
  currPath := srcPath + '*.*';
  if FindFirst(currPath, faAnyFile, FileRec) = 0 then
  repeat
    if ((FileRec.Attr and faDirectory) <> 0) and
      (FileRec.Name <> '.') and
      (FileRec.Name <> '..') then
    begin
      GetFileToListBox(srcPath+ FileRec.Name,sExt);
    end
    else begin
      if ExtractFileExt(FileRec.Name)=sExt then
        ListBox1.Items.Add(FileRec.Name);
    end;
  until FindNext(FileRec) <> 0;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  GetFileToListBox('L:\','.jpg');
end;

上机运行通过。

[lyhoo163]

D:\盘改为： GetFileToListBox('D:\','.jpg');

效果图：

[不得闲]

额，这个其实可以自己分析一下，FindFirst,FindNext等，递归的思路就是了。

[JPEXE]

引用 4 楼 B525068254 的回复:

如果想预览这个目录下面的jpg呢文件呢，这个复杂了吧

加个TImage，Load一下，哪里复杂

[yct0605]

引用 5 楼 JPEXE 的回复:

[quote=引用 4 楼 B525068254 的回复:] 如果想预览这个目录下面的jpg呢文件呢，这个复杂了吧

加个TImage，Load一下，哪里复杂[/quote] 遍历的时候加上路径就可以预览图片了。

[B525068254]

引用 5 楼 JPEXE 的回复:

[quote=引用 4 楼 B525068254 的回复:] 如果想预览这个目录下面的jpg呢文件呢，这个复杂了吧

加个TImage，Load一下，哪里复杂[/quote] 预览，不是显示，就是用缩略图小图显示，客户想点哪个再双击

[B525068254]

如果想预览这个目录下面的jpg呢文件呢，这个复杂了吧

[JPEXE]

引用 7 楼 B525068254 的回复:

[quote=引用 5 楼 JPEXE 的回复:] [quote=引用 4 楼 B525068254 的回复:] 如果想预览这个目录下面的jpg呢文件呢，这个复杂了吧

加个TImage，Load一下，哪里复杂[/quote] 预览，不是显示，就是用缩略图小图显示，客户想点哪个再双击[/quote] 想直接列举出“缩略图”，那就用ListView控件