| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 269 人关注过本帖
标题:怎么提取文件夹所有文件的名称、大小与最后更新时间,将其写入excel文件?
只看楼主 加入收藏
cluna2013
Rank: 1
等 级:新手上路
帖 子:141
专家分:0
注 册:2013-3-2
结帖率:100%
  已结贴   问题点数:20  回复次数:8   
怎么提取文件夹所有文件的名称、大小与最后更新时间,将其写入excel文件?
这组命令可以搞清楚硬盘都有什么内容。
搜索更多相关主题的帖子: 时间 excel 写入 提取 文件 
2019-11-28 15:00
gxbsdzf
Rank: 2
等 级:论坛游民
帖 子:23
专家分:23
注 册:2019-11-26
  得分:6 
首先用SET DEFAULT TO (你的文件夹)
接着用ADIR(ArrayName [, cFileSkeleton [, cAttribute [, nFlag]]])函数,获取某文件夹下文件的名称、大小、最后修改时间,存放于数组ArrayName中。
然后循环这个数组,逐条记录导出到Excel

导出Excel要用myexcel=CREATEOBJECT('excel.application')

具体代码请自行组织。可查阅vfp帮助及百度。
2019-11-28 15:53
cluna2013
Rank: 1
等 级:新手上路
帖 子:141
专家分:0
注 册:2013-3-2
  得分:0 
回复 2楼 gxbsdzf
使用 ADIR(ArrayName [, cFileSkeleton [, cAttribute [, nFlag]]])
在不知道文件夹中都有哪些名称的文件,只知道缀,ADIR( )函数是如何显示出文件名的?我试了一下,还是没搞清楚。
2019-11-28 20:35
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:221
帖 子:6817
专家分:30152
注 册:2014-5-20
  得分:5 
VFP帮助
附件: 您没有浏览附件的权限,请 登录注册
2019-11-28 20:42
cluna2013
Rank: 1
等 级:新手上路
帖 子:141
专家分:0
注 册:2013-3-2
  得分:0 
以下是引用吹水佬在2019-11-28 20:42:32的发言:

VFP帮助

我尝试写入
cd = ADIR(pdflist,[*.pdf])
然后
?cd
结果显示该文件夹中有多少个PDF的文件。但是我想看的是文件的名称,不知道使用什么代码?此外,文件大小、修改日期,又该如何写?
2019-11-28 20:58
xuminxz
Rank: 8Rank: 8
等 级:贵宾
威 望:12
帖 子:321
专家分:897
注 册:2011-5-8
  得分:2 
用DOS命令就可以了
 dir /a-d  >fnm.txt

dBase有人接盘了。
2019-11-28 22:02
cluna2013
Rank: 1
等 级:新手上路
帖 子:141
专家分:0
注 册:2013-3-2
  得分:0 
回复 6楼 xuminxz
我用dir *.pdf看到了文件夹中所有的PDF文件。谢谢指点!
ADIR()建立了相关数组,是否只有将数组存入DBF文件,或者EXCEL文件才能打开看到内容?
2019-11-28 22:17
gxbsdzf
Rank: 2
等 级:论坛游民
帖 子:23
专家分:23
注 册:2019-11-26
  得分:7 
clear
vlen=ADIR(varr_file,'*.pdf')
IF vlen>0 THEN
    FOR i=1 TO vlen
        ?"文件名:"+varr_file(i,1)+" / 大小:"+TRANSFORM(varr_file(i,2))+" / 最后修改日期:"+TRANSFORM(varr_file(i,3))+" / 最后修改时间:"+TRANSFORM(varr_file(i,4))
    ENDFOR
ENDIF
这个adir函数把当前文件夹下指定的文件(比如pdf文件)信息存入一个二维数组(比如varr_file),这个数组的每一行中,第一列是文件名,第二列是大小,等等。见4楼的介绍。
2019-11-29 01:06
cluna2013
Rank: 1
等 级:新手上路
帖 子:141
专家分:0
注 册:2013-3-2
  得分:0 
回复 8楼 gxbsdzf
谢谢!
2019-11-29 09:00
快速回复:怎么提取文件夹所有文件的名称、大小与最后更新时间,将其写入excel文 ...
数据加载中...
 
   



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

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