指定文件的最后修改时间距离现在(本月)不大于2年的vb6代码如何写？谢谢。

HVB6 发布于 2015-10-29 09:47， 430 次点击

指定文件的最后修改时间距离现在(本月)不大于2年的vb6代码如何写？谢谢。
即：
Set Fso = CreateObject("Scripting.FileSystemObject")
If Date- Fso.GetFile(***).DateLastModified<=2 Then '***为文件路径和文件名，此语句不中
....

1 回复

HVB62015-10-29 16:14

回复楼主 HVB6

以下代码可以：
dim My_date
Set Fso = CreateObject("Scripting.FileSystemObject")
My_date=year( Fso.GetFile(***).DateLastModified)
If year(Date)- My_date<=2 Then