01 2012 档案

VFP_获得给定目录下所有文件夹路径-非递归方法（转）
摘要：FUNCTION GetAllPath LPARAMETERS tcRoot LOCAL ARRAY laDirs[1],aDirCount[1] LOCAL i, n, m, lnRec, lcTblDir, lcDir, lnCount, lnSelect, lcPathStr lnSelect = SELECT() lcTblDir= SYS(2015) CREATE CURSOR &lcTblDir (fldsn I(3),flddir C(200)) INSERT INTO &lcTblDir. (fldsn,flddir)... 阅读全文
posted @ 2012-01-03 14:47 摩根船长 阅读(2157) 评论(0) 推荐(0) 编辑