|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 指定文件的最后修改时间距离现在(本月)不大于2年的vb6代码如何写?谢谢。
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
420
人关注过本帖
标题:
指定文件的最后修改时间距离现在(本月)不大于2年的vb6代码如何写?谢谢。
只看楼主
加入收藏
HVB6
等 级:
贵宾
威 望:
15
帖 子:331
专家分:561
注 册:2013-10-30
结帖率:
98.41%
楼主
收藏
问题点数:0 回复次数:1
指定文件的最后修改时间距离现在(本月)不大于2年的vb6代码如何写?谢谢。
指定文件的最后修改时间距离现在(本月)不大于2年的vb6代码如何写?谢谢。
即:
Set Fso = CreateObject("Scripting.FileSystemObject")
If Date- Fso.GetFile(***).DateLastModified<=2 Then
'***为文件路径和文件名,此语句不中
....
搜索更多相关主题的帖子:
如何
2015-10-29 09:47
举报帖子
使用道具
赠送鲜花
HVB6
等 级:
贵宾
威 望:
15
帖 子:331
专家分:561
注 册:2013-10-30
第
2
楼
收藏
得分:0
回复 楼主 HVB6
以下代码可以:
dim My_date
Set Fso = CreateObject("Scripting.FileSystemObject")
My_date=year( Fso.GetFile(***).DateLastModified)
If year(Date)- My_date<=2 Then
2015-10-29 16:14
举报帖子
使用道具
赠送鲜花
2
1/1页
1
快速回复:
指定文件的最后修改时间距离现在(本月)不大于2年的vb6代码如何写?谢谢 ...
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.030472 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved