asp通过fso判断文件修改时间并移动文件源码

asp 通过fso判断时间修改文件 并通过 movefile 移动文件

<% 

Set fs=Server.CreateObject("Scripting.FileSystemObject")  
Set f=fs.GetFile(Server.MapPath("1.jpg"))  
Response.Write f.DateLastModified '最后修改时间  
Response.Write "<br>"
Response.Write("文件创建于：" & f.DateCreated) 
Response.Write "<br>"
d = "2018-06-25 00:00:00"
if f.DateLastModified > d then
Response.Write "今天创建的"
else
Response.Write "以前创建的"
'Response.Write server.mappath("1.jpg")
fs.MoveFile server.mappath("1.jpg"),"F:\yizuotu.net\1\1.jpg"    '用fs的MoveFile方法移动文件 
end if 
set f=nothing  
set fs=nothing  
%>