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

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