怎样获取特定目录下所有的子文件夹列表？然后获取某一个文件夹下所有的文件的文件名，不包括扩展名，但要按扩展名分类。。！在线送分：-）提供程序者送100分！(1

HaiGxj · 2002-12-15

怎样获取特定目录下所有的子文件夹列表？然后获取某一个文件夹下所有的文件的文件名，不包括扩展名，但要按扩展名分类。。！在线送分：-）提供程序者送100分！(100分) ：-）

only you · 2002-12-15

一段不知道从那抄来的函数,看看对你有没有帮助 ///////////////////////////////////////////////////////////////// // //  查询主体函数 //  Mainpath：指定的查询目录。 //  Filename：欲查询的文件。 //  Foundresult：返回的含完整路径的匹配文件（可能有多个）。 //  如果有匹配文件，函数返回True，否则，返回False; ///////////////////////////////////////////////////////////////// function SearchFile(mainpath:string;filename:string;var foundresult:TStringList):Boolean; var   i:integer;   Found:Boolean;   subdir1:TStrings;   searchRec:TsearchRec; begin   found:=false;   if Trim(filename)<>'' then   begin   subdir1:=TStringList.Create;//字符串列表必须动态生成   //找出所有下级子目录。   if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then   begin   if IsValidDir(SearchRec) then   subdir1.Add(SearchRec.Name);   while (FindNext(SearchRec) = 0) do         begin         if IsValidDir(SearchRec) then         subdir1.Add(SearchRec.Name);         end;   end;   FindClose(SearchRec);   //查找当前目录。   if FileExists(mainpath+filename) then   begin      if (FindFirst(mainpath+filename, faAnyFile, SearchRec)=0) then         begin         while (FindNext(SearchRec) = 0) do               begin               foundresult.Add(mainpath+SearchRec.Name);               found:=true;               end;         FindClose(SearchRec);         end;   end;   //这是递归部分，查找各子目录。   for i:=0 to subdir1.Count-1 do   found:=Searchfile(mainpath+subdir1.Strings+'/',Filename,foundresult)or found;   //资源释放并返回结果。   subdir1.Free;   end;   result:=found; end;

leezero · 2002-12-15

这是搜索？

jsxjd · 2002-12-15

自己用FindFirst....为一组函数搜索目录下的所有文件。 把文件名和扩展名分解开，放入数组中。 最后排一下序显示出来。

HaiGxj · 2002-12-16

谢谢。。烦请各位大侠继续不吝赐教~~

laohe · 2002-12-16

用控件findfile,如果我更好的方法,我也关注一下

HaiGxj · 2002-12-16

呵呵  请各位大侠继续关注，，可能大家都会碰到这样的问题啊：-） up!

xiaoxian · 2002-12-16

var   pResult: LongInt;  mLstFile :tstringlist;   begin  mLstFile := tstringlist.Create;    pResult := FindFirst(pShareDir + '*.*', faAnyFile, pSearchRec);     while pResult = 0 do     begin       mLstFile.Add(pSearchRec.name);       pResult := FindNext(pSearchRec);     end;     findclose(pSearchRec); end;

ka52 · 2002-12-16

我也要用这个东东了. 谢谢大家.我去看看有没有更好的办法

HaiGxj · 2002-12-16

呵呵好想还差那么一些啊；；继续努力啊 up

lah998 · 2002-12-16

哈哈，分给我，我就给你全部源码！

HaiGxj · 2002-12-16

好啊。。只要你给源代码！！我就给，骗你不是人！

HaiGxj · 2002-12-16

to : lah998 在线等待中。。。。ing

newfat · 2002-12-16

我也要分，全要，肯定好好使，我已经用在一个压缩DLL中 //向指定StringList中添加指定目录下的全部子目录 function ListDirs(Path: string; List: TStringList): Integer; var   FindData: TWin32FindData;   FindHandle: THandle;   FileName: string;   AddToList: Boolean;   TempPath : string; begin   Result := 0;   AddToList := Assigned(List);   if Path[Length(Path)] <> '/' then     Path := Path + '/';   TempPath := Path ;   Path := Path + '*.*';   FindHandle := Windows.FindFirstFile(PChar(Path), FindData);   while FindHandle <> INVALID_HANDLE_VALUE do   begin     FileName := StrPas(FindData.cFileName);     if (FileName <> '.') and (FileName <> '..') and       ((FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0) then     begin       Result := Result + 1 + ListDirs(TempPath+FileName,List);       if AddToList then         List.Add(TempPath+FileName);     end;     if not Windows.FindNextFile(FindHandle, FindData) then       FindHandle := INVALID_HANDLE_VALUE;   end;   Windows.FindClose(FindHandle); end;

newfat · 2002-12-16

请自己改一下 //向List中添加指定目录  Path 下的所有文件 function ListFiles(Path: string; List: TStringList): Integer; var   DirInfo: TSearchRec;   r : Integer; begin   Result := 0 ;   if Path[Length(Path)] <> '/' then     Path := Path + '/';   r := FindFirst(Path+'*.*', FaAnyfile, DirInfo);   while r = 0 do   begin     if ((DirInfo.Attr and FaDirectory <> FaDirectory) and        (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then     begin       List.Add(Path+ DirInfo.Name);     end;     r := FindNext(DirInfo);   end;   SysUtils.FindClose(DirInfo); end;

HaiGxj · 2002-12-16

to newfat:   你的源码我看了，我先试一试，但是，你还没有给出答完。。： 然后获取某一个文件夹下所有的文件的文件名，不包括扩展名，但要按扩展名分类。。！  xiaoxian 和 only you 给出了后面的问题的思路，如果你给出同样的更好使用的源码， 注意，我要按扩展名分类：你可以用  .txt 给一个。。如果给出了，这个100 分全给你，  我另外给他们加分！！ok?

崔占东 · 2002-12-16

procedure TF_PhotoIE.SearchPhotoFile(Path: string; FilesList: TStringList; Recurce: boolean); var   SR: TSearchRec; begin   if Path[Length(Path)] <> '/' then Path := Path + '/';   if FindFirst(Path + '*.*', faDirectory, SR) = 0 then   begin     while FindNext(SR) = 0 do     begin       if (SR.Attr and faDirectory) = SR.Attr then       begin         if Recurce then           if (SR.Name <> '.') and (SR.Name <> '..') then           begin             SearchPhotoFile(Path + SR.Name, FilesList, Recurce)             FilesList.Add(Path + SR.Name);           end;       end     end;     FindClose(SR);   end; end;

80年代 · 2002-12-16

如果是想学习建议看看Delphi得 FindNext 等函数的帮助，里面的例子 你要的基本上都有了

HaiGxj · 2002-12-20

不好意思，网不通，让各位大富翁久等了~~

怎样获取特定目录下所有的子文件夹列表？然后获取某一个文件夹下所有的文件的文件名，不包括扩展名，但要按扩展名分类。。！在线送分：-）提供程序者送100分！(1

HaiGxj

Unregistered / Unconfirmed

only you

Unregistered / Unconfirmed

leezero

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

laohe

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

xiaoxian

Unregistered / Unconfirmed

ka52

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

lah998

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

newfat

Unregistered / Unconfirmed

newfat

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

崔占东

Unregistered / Unconfirmed

80年代

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

Similar threads

怎样获取特定目录下所有的 子文件夹列表？然后获取某一个文件夹下所有的文件的文件名，不包括扩展名，但要按扩展名分类。。！ 在线送分：-）提供程序者送100分！(1

HaiGxj

Unregistered / Unconfirmed

only you

Unregistered / Unconfirmed

leezero

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

laohe

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

xiaoxian

Unregistered / Unconfirmed

ka52

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

lah998

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

newfat

Unregistered / Unconfirmed

newfat

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

崔占东

Unregistered / Unconfirmed

80年代

Unregistered / Unconfirmed

HaiGxj

Unregistered / Unconfirmed

Similar threads

怎样获取特定目录下所有的子文件夹列表？然后获取某一个文件夹下所有的文件的文件名，不包括扩展名，但要按扩展名分类。。！在线送分：-）提供程序者送100分！(1