[原创]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>