标题:有没有文件大小函数,与更新时间函数
只看楼主
cluna2013
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2013-3-2
结帖率:100%
已结贴  问题点数:20 回复次数:24 
有没有文件大小函数,与更新时间函数
请教各位大佬:
在下列代码中,有文件名,文件类型,完整路径,分别用juststem()、justext()、justpath()找出来,那么有没有找出文件大小、与更新时间的代码?
IF ! laSub[i,1]=="." AND ! laSub[i,1]==".."
        DECLARE taFileArray[ALEN(taFileArray)+1]
        taFileArray[ALEN(taFileArray)]=tcPath+laSub[i,1]
        INSERT INTO temp (文件名,文件类型,完整路径) VALUES (juststem(tcPath+laSub[i,1]),justext(tcPath+laSub[i,1]),justpath(tcPath+laSub[i,1]))
    ENDIF
搜索更多相关主题的帖子: 时间 更新 函数 文件 大小 
2020-06-14 20:50
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:8 
FDATE( )
FTIME( )
2020-06-14 21:07
cluna2013
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2013-3-2
得分:0 
回复 2楼 吹水佬
那么文件大小的函数呢?
2020-06-14 21:43
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:10 
ADIR( ) 函数

坚守VFP最后的阵地
2020-06-14 21:50
cluna2013
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2013-3-2
得分:0 
回复 4楼 sdta
加上这两个函数,不知道怎么回事就不行了?
SET SAFETY OFF
*CREATE TABLE temp (文件名  c(56),文件类型 c(6),完整路径 c(42),文件日期 t)
CREATE TABLE temp (文件名  c(56),文件类型 c(6),完整路径 c(42),文件日期 t, 文件大小 n)
DECLARE aReturnDirectory(1) &&建立返回目录数组
nCount=FindDirectory(@aReturnDirectory,"D:\读书")
BROWSE

FUNCTION  FindDirectory
lPARAMETERS taDireArray,tcPath,lnReCurLevel,InReFileDate,InReTime &&接收数组名、路径名、递归层数(函数内部用)参数
LOCAL laSub[1],i,lnSubDirCount,lnLen
IF PARAMETERS()<3 &&第一次调用该程序时不会传递 lnReCurLevel 参数
    lnReCurLevel=0
ENDIF
IF RIGHT(tcPath,1)# "\"
    tcPath=tcPath+"\"
ENDIF
IF lnReCurLevel=0
    DECLARE taFileArray[1] &&存放文件数组
    DECLARE taDireArray[1] &&存放目录数组
    If DIRECTORY(tcPath) &&只需在第 0 层检查目录是否存在
        taDireArray[1]=tcPath
    ELSE
    RETURN 0
    ENDIF
ELSE
    DECLARE taDireArray[ALEN(taDireArray)+1]
    taDireArray[ALEN(taDireArray)]=tcPath
ENDIF
lnSubDirCount=ADIR(laSub,tcPath+"*.*","DHS")
FOR i=1 TO lnSubDirCount
IF "D" $ laSub[i,5] AND ! laSub[i,1]=="." AND ! laSub[i,1]==".."
    *!* 递归调用 FindDirectory()函数
    FindDirectory(@taDireArray,tcPath+laSub[i,1],lnReCurLevel+1)
ELSE
    IF ! laSub[i,1]=="." AND ! laSub[i,1]==".."
        DECLARE taFileArray[ALEN(taFileArray)+1]
        taFileArray[ALEN(taFileArray)]=tcPath+laSub[i,1]
*       INSERT INTO temp (文件名,文件类型,完整路径) VALUES (juststem(tcPath+laSub[i,1]), justext(tcPath+laSub[i,1]),justpath(tcPath+laSub[i,1]))
        INSERT INTO temp (文件名,文件类型,完整路径,文件日期,文件大小) VALUES (juststem(tcPath+laSub[i,1]),;
        justext(tcPath+laSub[i,1]),justpath(tcPath+laSub[i,1]),fdate(tcPath+laSub[i,1]),adir(tcPath+laSub[i,1]))
    ENDIF
ENDIF
ENDFOR
RETURN ALEN(taFileArray)
2020-06-14 22:31
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
以下是引用cluna2013在2020-6-14 21:43:39的发言:

那么文件大小的函数呢?

FSIZE( )
2020-06-15 08:30
cluna2013
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2013-3-2
得分:0 
回复 6楼 吹水佬
换成FSIZE( )仍然不行。
运行显示“文件不存在”
2020-06-15 09:10
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
以下是引用cluna2013在2020-6-15 09:10:15的发言:

换成FSIZE( )仍然不行。
运行显示“文件不存在”

2020-06-15 09:33
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
“文件不存在”是不是文件名或路径不对
2020-06-15 09:44
cluna2013
Rank: 1
等 级:新手上路
帖 子:206
专家分:0
注 册:2013-3-2
得分:0 
这段代码是“瓜瓜1990”在【如何将D盘下所有文件按要求写入表文件中】提供的。
说实话,我水平不高,并不太理解其余代码的意义,只是增加【文件日期,文件大小】两个参数,其余哪些代码需要跟进,我不清楚。
2020-06-15 10:42



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-502124-1-1.html




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

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