今天结贴，如何列出一个文件夹中的所有文件

Question

一：如何列出一个文件夹中的所有文件和文件夹中的所有文件夹，并形成一个清单。
清单要求包括每个文件的完整路径、文件名、(文件大小及文件属性)这两个可以不要。
注：文件夹中有子文件夹，要求子文件夹中的文件也要列出来。我要完整的源码能在D6
中通过,请不要提醒我搜以前的贴子！二：请问下面这段代码里的“&apos”是什么意思？为什么在我的机上D6报告这个有错! 
if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then
注：小妹初学还望大哥加点中文注解,不胜感谢！

Answer 1

啊，什么东西呀！！去看一下Delphi的控件TShellTreeView(Samples)不就结了！
'是HTML中的“'”呀，改了不就结了么？

Answer 2

首先你起的这个名字非常的恐怖！强烈建议你改掉！关于这个问题，可以看看 Delphi 的帮助，在索引中输入 “FindFirst,example”，这里有一个现成的例子，可以参考一下。

Answer 3

同意 CloneCenter(复制中心)
    只要用FINDFIRST， FINDNEXT即可。

Answer 4

建议看d6 下demo的virtuallistview，里面有现成的代码可以参考。