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

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

1 楼wengj（做了两年的软件，想换个行业）回复于 2002-11-26 12:36:55 得分 25

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

2 楼CloneCenter（复制中心）回复于 2002-11-26 16:52:09 得分 25

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

3 楼zfmich（）回复于 2002-11-26 16:56:56 得分 25

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

4 楼flyingkiller（大飞虫）回复于 2002-11-26 17:50:02 得分 25

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

相关问题

• 文件夹
• 文件
• d6
• findfirst
• 所有

• 帖主：LAH998
• wengj
• CloneCenter
• zfmich
• flyingkiller

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载