VFP_获得给定目录下所有文件夹路径-非递归方法（转）

最新推荐文章于 2022-09-21 21:23:39 发布

转载最新推荐文章于 2022-09-21 21:23:39 发布 · 560 阅读

本文介绍了一个在程序中获取指定目录下所有文件夹相对路径的函数实现，该方法可以动态设置搜索路径，并确保系统在移动文件或新建文件夹时不会出现找不到文件的错误。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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) VALUES (0,SUBSTR(tcRoot,1,LEN(tcRoot)-1))

     i = 0
     m = LEN(tcRoot)+1
     lcPathStr = ""
DO WHILE .T.
SELECT COUNT(*) FROM (lcTblDir) WHERE fldSn=i INTO ARRAY aDirCount
IF aDirCount(1)=0
EXIT
         ENDIF
SELECT (lcTblDir)
         SCAN FOR fldSn=i
              lcDir = ALLTRIM(flddir) + "\"
              lnCount = ADIR(laDirs,lcDir + "*.", "D")
              lnRec = RECNO()
FOR n = 1 TO lnCount
IF !("." $ laDirs(n,1) OR ".." $ laDirs(n,1))
                       INSERT INTO &lcTblDir. (fldsn,flddir) VALUES (i+1,lcDir+laDirs(n,1))
                       lcPathStr = lcPathStr + IIF(EMPTY(lcPathStr),"",",") + SUBSTR(ALLTRIM(flddir),m)
                   ENDIF
              ENDFOR
              GO lnRec IN (lcTblDir)
         ENDSCAN
         i=i+1
     ENDDO

SELECT (lnSelect) 
RETURN lcTblDir 
ENDFUNC

一、用法：

lcPathDBF = GetAllPath("c:\") 
SELECT (lcPathDBF) 
BROWSE

二、如果将最后一句改为“RETURN lcPathStr”可以得到给定目录下的所有文件夹相对路径（逗号隔开），这样有一个应用，可以动态设置搜索路径：

lcPath=GetAllPath("c:\我的应用程序\") 
SET PATH to &lcPath

以上方法有个好处，你随便移动数据表、表单或其他文件的位置，系统不会出现找不到文件的错误。新建文件夹时也会将其自动加到搜索路径中，这个方法在我的程序中已经成功应用。代码如下（代码放到主程序最开始部分，主程序文件应放到应用程序文件夹的第一层）：

*-----------------------------------

lcSys16 = SYS(16) &&查询当前运行程序名
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
cDefaultPath=LEFT(lcProgram, RAT("\", lcProgram))
CD LEFT(lcProgram, RAT("\", lcProgram)) &&设置默认路径

cSubDir = GetAllPath(cDefaultPath) 
SET PATH TO &cSubDir. ADDITIVE &&设置搜索路径

*-----------------------------------