发信人: delphifan()
整理人: delphifan(2000-12-05 19:39:44), 站内信件
|
【 在 liuzhangping (Wolf) 的大作中提到: 】
: 【 以下文字转载自 WinNT 讨论区 】
: 【 原文由 Wolf 所发表 】
: 请问哪位大虾知道如何在NT下列举一个目录下的所有文件，包括子目录？我查遍
: VC Help未果。请各位大虾提醒提醒。
: .......
========================================
procedure SearchFiles(var dir:WideString);
begin
Memo1.Clear;
if SelectDirectory('选择一个目录','',Dir) then
FindFirst(Dir+'\*.*', faAnyFile, SearchRec);
Memo1.Lines.Add(SearchRec.Name+ ' 大小：' + IntToStr(SearchRec.Size
) + ' bytes in size');
//Again
while (FindNext(SearchRec) = 0) do
Memo1.Lines.Add(SearchRec.Name+ ' 大小：' + IntToStr(SearchRec.Size
) + ' bytes in size');
//else
FindClose(SearchRec);
end;
怎么样？
--
=================================================
== [email protected] / [email protected] ==
== [一个真正有内容、较实用的Delphi网站] ==
== http://delphifan.wojia.com ==
== http://lmd.yeah.net http://lmd.126.com ==
=================================================
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.100.43.133]
|
|