阿杰 发表于 2009-2-13 19:23:17

【分享】取文件和目录列表的函数【源码】

<p><font face="Verdana">?GetFileList("c:\")&amp;&amp;Getdir()</font></p>
<p>&nbsp;</p>
<p><font face="Verdana">Function GetFileList(cPath)<br/>cTemp=Createobject('Filer.Fileutil')<br/>Local cPath,cTempSub,lcnum<br/>lcnum=0<br/>cTemp.SearchPath=cPath<br/>cTemp.FileExpression='*.*'<br/>cTemp.Find(0)<br/>lsFSO=Createobject("Scripting.FileSystemObject")<br/>For LcControl=3 To cTemp.Files.Count()<br/>&nbsp;Wait Window cPath+cTemp.Files.Item(LcControl).Name Timeout 0.1<br/>Endfor<br/>Endfunc</font></p>

马大哈 发表于 2009-2-14 15:06:48

<p>好象也和VB6差得不是很多,也有CreateObject啊,哈哈.</p>

阿杰 发表于 2009-2-16 12:49:39

<p>和VB的大同小异,FOXPRO和VB本来就是一家的东西.</p>
页: [1]
查看完整版本: 【分享】取文件和目录列表的函数【源码】