高分求助!!如何取得一个文件夹里的所有文件的文件名？

Iris 2003-07-29 09:56:50
如何取得一个文件夹里的所有文件的文件名？
谢谢！
...全文
57 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
shao666 2003-07-29
  • 打赏
  • 举报
 回复
TFileListBox中的Items中就存着所有文件
34535345345345345345 2003-07-29
  • 打赏
  • 举报
 回复
FileListBox1直接拖到窗体上，呵呵，多快
shao666 2003-07-29
  • 打赏
  • 举报
 回复
TFileListBox中的Items中就存着所有文件
ltysunde 2003-07-29
  • 打赏
  • 举报
 回复
功能强大哦。
HOHO~~！·
如果有不明白的地方给我发短消息。
ltysunde 2003-07-29
  • 打赏
  • 举报
 回复
给你一个例子：
var
Flist:Tstringlist;
i:integer;
begin
FList:= TStringList.Create;
SearchFile('C:\abc'+'\*.*', FList, faDirectory, True);
FileLV.items.BeginUpdate;
FileLV.items.clear;
For I:=0 To FList.Count -1 Do
With FileLV.Items.Add Do
Caption:= FLIst.Strings[I];
FileLV.items.EndUpdate;
FList.Free;
End;

FileLV 是一个LISTVIEW控件.

函数来了：
unit CusTomFerFuns;

Interface
uses
Forms,ComCtrls,SysUtils,Windows,ADODB,Mask,stdctrls,Dialogs,Classes;

Procedure SearchDirectory(Directory: String; DList: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
Procedure SearchFile(FileName: TFileName; FList: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
implementation

Procedure CustomSearchFile(SearchPath: String; List: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
Var
Index: Integer;
NextDir: Boolean;
FindData: TWin32FindData;
FindHandle: LongWord;
FileName: TFileName;
Begin
IF Copy(SearchPath, Length(SearchPath), 1)<>'\' Then SearchPath:= SearchPath+ '\';
FindHandle:= FindFirstFile(PChar(SearchPath+ '*.*'), FindData);
NextDir:= False;
Index:= List.Count;
While True Do Begin
IF NextDir And InDir Then Begin
FindHandle:=INVALID_HANDLE_VALUE;
While Index<List.Count Do Begin
IF Not FileExists(List.Strings[Index]) Then Inc(Index)
Else
Begin
SearchPath:= List.Strings[Index]+'\';
FindHandle:= FindFirstFile(pChar(SearchPath+ '*.*'), FindData);
Break;
End;
End;
End;
IF FindHandle= INVALID_HANDLE_VALUE Then Break;

FileName:= FindData.cFileName;
IF (FindData.dwFileAttributes And ExcludeAttr)=0 Then
IF FileName<>'.' Then
IF FileName<>'..' Then
List.Add(SearchPath+ FileName);

IF Not FindNextFile(FindHandle, FindData) Then Begin
windows.FindClose(FindHandle);
IF InDir Then NextDir:= True Else Break;
End;
End;
End;

Procedure SearchDirectory(Directory: String; DList: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
Var
Index: Integer;
Begin
IF ExcludeAttr=-1 Then ExcludeAttr:= faSysFile OR faHidden;
IF (ExcludeAttr And faDirectory)= faDirectory Then
ExcludeAttr:= ExcludeAttr Xor faDirectory;
Index:= DList.Count;
CustomSearchFile(Directory, DList, ExcludeAttr, InDir);
For Index:=DList.Count-1 DownTo Index Do
IF FileExists(DList.Strings[Index]) Then DList.Delete(Index);
End;

Procedure SearchFile(FileName: TFileName; FList: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
Var
SPath, SFile: String;
Index, BufferIndex: Integer;
FindData: TWin32FindData;
FindHandle: LongWord;
Begin
SPath:= ExtractFilePath(FileName);
SFile:= ExtractFileName(FileName);
Index:= FList.Count;
BufferIndex:= Index;
IF ExcludeAttr=-1 Then ExcludeAttr:= faDirectory OR faSysFile OR faHidden;

While True Do Begin
IF InDir Then SearchDirectory(SPath, FList, ExcludeAttr, False);
FindHandle:= FindFirstFile(PChar(SPath+SFile), FindData);
While FindHandle<>INVALID_HANDLE_VALUE Do Begin
FileName:= FindData.cFileName;
IF (ExcludeAttr=0) OR ((FindData.dwFileAttributes And ExcludeAttr)=0) Then
IF FileExists(SPath+FileName) Then FList.Add(SPath+FileName);

IF Not FindNextFile(FindHandle, FindData) Then Begin
FindClose(FindHandle);
Break;
End;
End;
//
IF InDir Then
While Index<FList.Count Do Begin
IF FileExists(FList.Strings[Index]) Then Inc(Index)
Else Begin
SPath:= FList.Strings[Index]+'\';
Inc(Index);
Break;
End;
End;

IF Index>=Flist.Count Then Break;
End;

IF (ExcludeAttr And faDirectory)=faDirectory Then
For Index:=FList.Count-1 DownTo BufferIndex Do
IF Not FileExists(FList.Strings[Index]) Then FList.Delete(Index);
end;

end.
ltysunde 2003-07-29
  • 打赏
  • 举报
 回复
给你一个例子：
var
Flist:Tstringlist;
i:integer;
begin
FList:= TStringList.Create;
SearchFile('C:\abc'+'\*.*', FList, faDirectory, True);
FileLV.items.BeginUpdate;
FileLV.items.clear;
For I:=0 To FList.Count -1 Do
With FileLV.Items.Add Do
Caption:= FLIst.Strings[I];
FileLV.items.EndUpdate;
FList.Free;
End;

FileLV 是一个LISTVIEW控件.

函数来了：
unit CusTomFerFuns;

Interface
uses
Forms,ComCtrls,SysUtils,Windows,ADODB,Mask,stdctrls,Dialogs,Classes;

Procedure SearchDirectory(Directory: String; DList: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
Procedure SearchFile(FileName: TFileName; FList: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
implementation

Procedure CustomSearchFile(SearchPath: String; List: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
Var
Index: Integer;
NextDir: Boolean;
FindData: TWin32FindData;
FindHandle: LongWord;
FileName: TFileName;
Begin
IF Copy(SearchPath, Length(SearchPath), 1)<>'\' Then SearchPath:= SearchPath+ '\';
FindHandle:= FindFirstFile(PChar(SearchPath+ '*.*'), FindData);
NextDir:= False;
Index:= List.Count;
While True Do Begin
IF NextDir And InDir Then Begin
FindHandle:=INVALID_HANDLE_VALUE;
While Index<List.Count Do Begin
IF Not FileExists(List.Strings[Index]) Then Inc(Index)
Else
Begin
SearchPath:= List.Strings[Index]+'\';
FindHandle:= FindFirstFile(pChar(SearchPath+ '*.*'), FindData);
Break;
End;
End;
End;
IF FindHandle= INVALID_HANDLE_VALUE Then Break;

FileName:= FindData.cFileName;
IF (FindData.dwFileAttributes And ExcludeAttr)=0 Then
IF FileName<>'.' Then
IF FileName<>'..' Then
List.Add(SearchPath+ FileName);

IF Not FindNextFile(FindHandle, FindData) Then Begin
windows.FindClose(FindHandle);
IF InDir Then NextDir:= True Else Break;
End;
End;
End;

Procedure SearchDirectory(Directory: String; DList: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
Var
Index: Integer;
Begin
IF ExcludeAttr=-1 Then ExcludeAttr:= faSysFile OR faHidden;
IF (ExcludeAttr And faDirectory)= faDirectory Then
ExcludeAttr:= ExcludeAttr Xor faDirectory;
Index:= DList.Count;
CustomSearchFile(Directory, DList, ExcludeAttr, InDir);
For Index:=DList.Count-1 DownTo Index Do
IF FileExists(DList.Strings[Index]) Then DList.Delete(Index);
End;

Procedure SearchFile(FileName: TFileName; FList: TStringList;
ExcludeAttr: Integer; InDir: Boolean);
Var
SPath, SFile: String;
Index, BufferIndex: Integer;
FindData: TWin32FindData;
FindHandle: LongWord;
Begin
SPath:= ExtractFilePath(FileName);
SFile:= ExtractFileName(FileName);
Index:= FList.Count;
BufferIndex:= Index;
IF ExcludeAttr=-1 Then ExcludeAttr:= faDirectory OR faSysFile OR faHidden;

While True Do Begin
IF InDir Then SearchDirectory(SPath, FList, ExcludeAttr, False);
FindHandle:= FindFirstFile(PChar(SPath+SFile), FindData);
While FindHandle<>INVALID_HANDLE_VALUE Do Begin
FileName:= FindData.cFileName;
IF (ExcludeAttr=0) OR ((FindData.dwFileAttributes And ExcludeAttr)=0) Then
IF FileExists(SPath+FileName) Then FList.Add(SPath+FileName);

IF Not FindNextFile(FindHandle, FindData) Then Begin
FindClose(FindHandle);
Break;
End;
End;
//
IF InDir Then
While Index<FList.Count Do Begin
IF FileExists(FList.Strings[Index]) Then Inc(Index)
Else Begin
SPath:= FList.Strings[Index]+'\';
Inc(Index);
Break;
End;
End;

IF Index>=Flist.Count Then Break;
End;

IF (ExcludeAttr And faDirectory)=faDirectory Then
For Index:=FList.Count-1 DownTo BufferIndex Do
IF Not FileExists(FList.Strings[Index]) Then FList.Delete(Index);
end;

end.
sundayboys 2003-07-29
  • 打赏
  • 举报
 回复
实际上就是调用FindFirst,FindNext这些函数.
zyly2 2003-07-29
  • 打赏
  • 举报
 回复
unit FileSerach;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
Tfilefindfrm = class(TForm)
lbfiles: TListBox;
Panel1: TPanel;
Button1: TButton;
Edit2: TEdit;//目录
Edit1: TEdit;//文件名如*.Txt等
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
FFileName:String; //查找的文件名
function GetDirectoryName(Dir:String):String;
Procedure FindFiles(APath:String);
{ Public declarations }
end;

var
filefindfrm: Tfilefindfrm;

implementation

{$R *.dfm}
function Tfilefindfrm.GetDirectoryName(Dir:String):String; //设置DIR
begin
if Dir[LengTh(Dir)]<>'\' then
Result:=Dir+'\'
else
Result:=Dir;
end;

procedure TfilefindFrm.FindFiles(APath:String); //查找主函数
var
FSearchRec,DsearchRec:TSearchRec;
FindResult:integer;

function IsDirNotation(ADirName:String):Boolean;
begin
Result:=(ADirName='.') or(ADirName='..');
End;

begin
Apath:=GetDirectoryName(APath);
FIndResult:=FindFirst(APath+FFileName,faAnyFile+faHidden+faSysFile+FaReadonly,FsearchRec);
Try
while FindResult=0 do
begin
lbFiles.Items.Add(LowerCase(APath+FSearchRec.Name)); //把查找到的文件列出来
FindResult:=FindNext(FSearchRec);
end;
FindReSult:=FindFirst(APath+'*.*',faDirectory,DSearchRec);

while FindResult=0 do
begin
if ((DSearchRec.Attr and faDirectory)=faDirectory) and not ISDirNotation(DSEarchRec.Name) then
FindFiles(APath+DsearchRec.Name);
FindResult:=FindNext(DsearchREc);
end;
Finally
FindClose(FSearchRec);
end;
end;

procedure Tfilefindfrm.Button1Click(Sender: TObject);
begin
Screen.Cursor:=CrHourGlass;
try
lbFiles.Items.Clear;
FFIleName:=Edit2.Text;
FindFiles(Edit1.Text);
Finally
Screen.Cursor:=crDefault;
end;
end;

end.
基础
请问怎么得到一个函数的执行时间，单位毫秒！如何调试asp组件呀。用vc++调试编制的组件怎样画一个箭头？高分请教如何限制程序运行的方法？求助：通过编程DirectX抓屏------>masterz:再麻烦你一下，谢谢熟悉RichEdit...
vb/vb.net百科技术文章精粹（1）
VB中用CommonDialog 如何设置 保存的文件夹名? [控件] $$winsock接收文件问题 如何在Winform里控制Web页面,填写表单，提交 如何显示指定文件名的ACCESS 查询或窗体 用VB＋SQL SERVER编程
WEB开发文档2 总结
http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载...显示数据下载中文名文件时保存文件名乱码问题关于用ASP.net绘图的问题...
我在CSDN参与的3000个帖子
2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
Subversion FAQ(常见问题解答)
常见问题：为什么会有这样一个项目？ Subversion是私有软件吗?我听说它是属于CollabNet公司的。 Subversion用在我的项目上是否足够稳定？ Subversion的客户端/服务器在协同工作时的策略是怎样的？ Subversion可以...
Delphi

5,388

社区成员

262,730

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章