如何返回某个路径下的所有文件名？(100分)

笨人 · 2003-11-24

如何返回某个路径下的所有文件名？

wind8bell · 2003-11-24

正好我也想问，标记以下。 我这儿只有查找指定路径下某个文件的代码，不知道对你有没有用。

app2001 · 2003-11-24

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; procedure DoSearchFile(Path: string; Files: TStrings = nil); var   Info: TSearchRec;   procedure ProcessAFile(FileName: string);   begin     if Assigned(PnlPanel) then       PnlPanel.Caption := FileName;     Label2.Caption := FileName;   end;   function IsDir: Boolean;   begin     with Info do       Result := (Name <> '.') and (Name <> '..') and ((attr and fadirectory) = fadirectory);   end;   function IsFile: Boolean;   begin     Result := not ((Info.Attr and faDirectory) = faDirectory);   end; begin   Path := IncludeTrailingBackslash(Path);   try     if FindFirst(Path + '*.*', faAnyFile, Info) = 0 then       if IsFile then         ProcessAFile(Path + Info.Name)       else if IsDir then DoSearchFile(Path + Info.Name);     while FindNext(Info) = 0 do     begin       if IsDir then         DoSearchFile(Path + Info.Name)       else if IsFile then         ProcessAFile(Path + Info.Name);       Application.ProcessMessages;       if QuitFlag then Break;       Sleep(100);     end;   finally     FindClose(Info);   end; end;

tongdanfeng · 2003-11-24

//在指定目录搜索文件（包括子目录） { 参数说明： MainPath：要搜索的文件路径，支持统配符，如：c:/*.* ResultList：保存搜索到的文件列表的TStrings IncludeSubDir：是否包含子目录 } procedure hrSearchFile(MainPath: string; ResultList: TStrings; IncludeSubDir: boolean);   //判断当前是否是目录   function IsValidDir(SearchRec:TSearchRec):Boolean;   begin    if (SearchRec.Attr = 16) and (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then      Result := True    else      Result := False;   end;   //取得指定目录的子目录   procedure GetSubDir(MainPath: string; SubDirList: TStrings);   var     SearchRec: TSearchRec;   begin     if (FindFirst(ExtractFilePath(MainPath) + '*.*', faDirectory , SearchRec) = 0) then     begin       if IsValidDir(SearchRec) then         SubDirList.Add(SearchRec.Name);       while (FindNext(SearchRec) = 0) do       begin         if IsValidDir(SearchRec) then           SubDirList.Add(SearchRec.Name);       end;     end;     FindClose(SearchRec);   end;   //取得文件   procedure GetFiles(MainPath: string; FileList: TStrings; IncludeSubDir: boolean);   var     SearchRec: TSearchRec;     SubDirList: TStringList;     I: integer;   begin     SubDirList := TStringList.Create;     //取得当前目录     if IncludeSubDir then       GetSubDir(MainPath, SubDirList);     if (FindFirst(MainPath, faAnyFile , SearchRec) = 0) then     begin       if not IsValidDir(SearchRec) then         if SearchRec.Attr <> 16 then           FileList.Add(ExtractFilePath(MainPath) + SearchRec.Name);       while (FindNext(SearchRec) = 0) do       begin         if not IsValidDir(SearchRec) then           if SearchRec.Attr <> 16 then             FileList.Add(ExtractFilePath(MainPath) + SearchRec.Name);       end;     end;     FindClose(SearchRec);     for I := 0 to SubDirList.Count - 1 do       GetFiles(ExtractFilePath(MainPath) + SubDirList + '/' + ExtractFileName(MainPath),         FileList, IncludeSubDir);     SubDirList.Free;   end; begin   ResultList.Clear;   GetFiles(MainPath, ResultList, IncludeSubDir); end;

fxh7622 · 2003-11-25

说白了就是使用函数 FindFirst,FindNext和FindClose三个函数就可以了。对一个文件夹依次查找就可以了。很简单的

QSmile · 2003-11-25

用 WinApi 也可以 FindFirstFile FindNextFile FindClose

tgdjw · 2003-11-25

//查找文件夹下所有文件（包含子文件夹） //path:查找文件路径 //  fileresult:得到文件列表 procedure findall(path: String; var fileresult: Tstrings); var   fpath: String;   fs: TsearchRec; begin  fpath:=path+'/*.*';   if findfirst(fpath,faAnyFile,fs)=0 then     begin       if (fs.Name<>'.')and(fs.Name<>'..') then         if (fs.Attr and faDirectory)=faDirectory then           findall(path+'/'+fs.Name,fileresult)       else         fileresult.add(strpas(strupper(pchar(path)))+'/'+strpas(         strupper(pchar(fs.Name))));         while findnext(fs)=0 do           begin             if (fs.Name<>'.')and(fs.Name<>'..') then             if (fs.Attr and faDirectory)=faDirectory then               findall(path+'/'+fs.Name,fileresult)             else               fileresult.add(strpas(strupper(pchar(path)))+'/'+strpas(strupper(pchar(fs.Name))));           end;      end;   findclose(fs); end; //get files in directory,不包括子文件夹 procedure ListFileDir(Path: string; FileList: TStrings); var   SR: TSearchRec;   path0:string; begin    path0:=backslash(path);   if FindFirst(Path0 + '*.*', faAnyFile, SR) = 0 then   begin     repeat       if (SR.Attr <> faDirectory) then       begin         FileList.Add(SR.Name);       end;     until FindNext(SR) <> 0;     FindClose(SR);   end; end;

如何返回某个路径下的所有文件名？(100分)

笨人

Unregistered / Unconfirmed

wind8bell

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

tongdanfeng

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

tgdjw

Unregistered / Unconfirmed

Similar threads