如何使用简单的方法获得硬盘所有文件夹列表,包括子文件夹

yongxing 2000-08-16 05:48:00
如何使用简单的方法获得硬盘所有文件夹列表,包括子文件夹
只要能在程序中实现就行
...全文
211 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
chenlh 2000-08-18
  • 打赏
  • 举报
回复
用win3.1中的控件也很是简单啊,或自己用treeview编一个树了
lotto 2000-08-17
  • 打赏
  • 举报
回复
使用Ahm2000,有专门的控件可以实现此功能
Wingsun 2000-08-17
  • 打赏
  • 举报
回复
接着,给你邮过去了。
mophy 2000-08-16
  • 打赏
  • 举报
回复
var
Form1: TForm1;
TreeCount, FilesCount, DirsCount : integer;
TreeSize, FilesSize, DirsSize : comp;

procedure TForm1.MakeTree;
var Sr : TSearchRec;
Err : integer;
TrSize, FilePath : string;
Begin
Err:=FindFirst('*.*',$37,Sr) ;
While (Err = 0) do
begin
if Sr.Name[1]<>'.' then
begin
FilePath:=ExpandFileName(Sr.Name);
TreeSize:=TreeSize+Sr.Size;
TrSize:=FloatToStr(TreeSize);
Form1.Caption:=DirectoryListBox1.Directory+' '+IntToStr(TreeCount)
+' files and folders Size: '+TrSize;
if (Sr.Attr and faDirectory)=0 then
begin
FilesSize:=FilesSize+Sr.Size;
inc(FilesCount);
end;
inc(TreeCount);
end;

{ Begin Recursion }
If ((Sr.Attr and faDirectory)<>0)AND(Sr.Name[1] <> '.') then
begin
DirsSize:=DirsSize+Sr.Size;
inc(DirsCount);
ChDir(Sr.Name) ;
MakeTree ;
ChDir('..') ;
end ;
{ End Recursion }
Err:=FindNext(Sr) ;
end ;
End;
yongxing 2000-08-16
  • 打赏
  • 举报
回复
需要,快给我吧,先谢谢啦
Wingsun 2000-08-16
  • 打赏
  • 举报
回复
使用第三方控件,需要吗?

5,379

社区成员

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

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