| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 413 人关注过本帖, 1 人收藏
标题:VFP_获得给定目录下所有文件夹路径-非递归方法(转)
只看楼主 加入收藏
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
结帖率:98.98%
收藏(1)
已结贴  问题点数:1 回复次数:3 
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) 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 &&设置搜索路径

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

2015-07-15 14:14
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
功力不错的,好东西,大家分享..
2015-07-15 14:15
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:1 
以下是引用mywisdom88在2015-7-15 14:14:40的发言:

lcSys16 = SYS(16) &&查询当前运行程序名
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)

注意!这样获取的程序名不适用于如下情况:
\\192.168.0.1\共享文件夹\Test.exe

\\主机名\共享文件夹\Test.exe

用ASTACKINFO()获取程序信息效好。
2015-07-15 15:15
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
TO 3楼,我找到他,是为了批量更改文件名称,我今天测试,好像更改你说网络文件时,好像报错误,但把文件复制到本地,改好了再考回去,好像不报错,,
我刚开始,还以为是文件名称太长的问题,。。原来是这个原因啊。。
2015-07-15 15:42
快速回复:VFP_获得给定目录下所有文件夹路径-非递归方法(转)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031666 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved