声明：本空间的内容不全部是原创，如有雷同只为学习与借鉴之方便，别无它意，来者是朋友，愿通过此平台结交天下测试达狼！

QTP查找某个文件最后次修改时间

上一篇 / 下一篇  2010-05-14 09:15:19 / 个人分类：QTP

查看( 399 ) / 评论( 1 ) / 评分( 0 / 0 )
Dim fso, f151Testing软件测试网P:j,~#bYO;m L[5M
Set fso = CreateObject("Scripting.FileSystemObject")51Testing软件测试网 q}$R$|7pL(h
' Get a File object to query.
"Wcd o:v0}'t0Set f1 = fso.GetFile("c:\data.xls")   51Testing软件测试网 r7Vf~8Vl7i9jg$b
' Print information.
*RM s q;S7Z5b!b[(Q(c0msgbox "File last modified: " & f1.DateLastModified
 
结果见附件：

321

321

收藏 举报

TAG:

张君666的个人空间 引用 删除 张君666   /   2010-05-14 20:22:45
我什么时候能开空间啊
 

评分：0

我来说两句

Open Toolbar