阿杰 发表于 2008-11-7 16:16:27

[原创]VFP取得目录下所有的子目录和文件【源码】

<p><font face="Verdana">a1=GETDIR()<br/>IF EMPTY('a1')<br/>&nbsp;RETURN<br/>ENDIF</font></p>
<p><font face="Verdana">CLEAR</font></p>
<p><font face="Verdana">ldir(a1)</font></p>
<p><font face="Verdana">FUNCTION ldir(dirname)<br/>PRIVATE a,abc &amp;&amp;必须量声明为私有变量,否则结果会出错。</font></p>
<p><font face="Verdana">SET DEFAULT TO (dirname)<br/>ADIR(abc,'*.*','AHRSD')</font></p>
<p><font face="Verdana">FOR a=1 TO ALEN(abc,1)<br/>&nbsp;IF abc(a,1) # '.' AND abc(a,1) # '..'<br/>&nbsp;&nbsp;? dirname+abc(a,1),abc(a,5)<br/>&nbsp;&nbsp;DOEVENTS<br/>&nbsp;&nbsp;IF 'D' $ abc(a,5)<br/>&nbsp;&nbsp;&nbsp;ldir(dirname+abc(a,1)+'\')<br/>&nbsp;&nbsp;ENDIF<br/>&nbsp;ENDIF<br/>NEXT<br/>ENDFUNC</font></p>
页: [1]
查看完整版本: [原创]VFP取得目录下所有的子目录和文件【源码】