<p>FSO如何取得文件修改日期和相关信息</p> <p>&lt;html&gt; <br /> &lt;body&gt;读取一个文件相关信息的范例&lt;br&gt;&lt;br&gt; <br /> &lt;% <br /> Dim objFSO,objFile &rsquo;声明一个名称为 objFSO 的变量以存放对象实例 <br /> Set objFSO = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;) <br /> If objFSO.FileExists(Server.MapPath(&quot;newfile.asp&quot;)) Then <br /> Set objFile = objFSO.GetFile(Server.MapPath(&quot;newfile.asp&quot;)) <br /> Response.Write &quot;文件的名称:&quot;&amp;objFile.Name&amp;&quot;&lt;br&gt;&quot; <br /> Response.Write &quot;文件的路径:&quot;&amp;objFile.Path&amp;&quot;&lt;br&gt;&quot; <br /> Response.Write &quot;文件的建立日期:&quot;&amp;objFile.DateCreated&amp;&quot;&lt;br&gt;&quot; <br /> Response.Write &quot;文件的最后浏览日期:&quot;&amp;objFile.DateLastAccessed&amp;&quot;&lt;br&gt;&quot; <br /> Response.Write &quot;文件的最后修改日期:&quot;&amp;objFile.DateLastModified&amp;&quot;&lt;br&gt;&quot; <br /> Response.Write &quot;文件的大小:&quot;&amp;objFile.Size&amp;&quot;&lt;br&gt;&quot; <br /> Response.Write &quot;文件的类型:&quot;&amp;objFile.Type&amp;&quot;&lt;br&gt;&quot; <br /> Else <br /> Response.Write Server.MapPath(&quot;newfile.asp&quot;)&amp;&quot;不存在,无法读取相关信息&quot; <br /> End If <br /> Set objFile = Nothing <br /> Set objFSO = Nothing &rsquo;释放 FileSystemObject 对象实例内存空间 <br /> %&gt; <br /> &lt;/body&gt;&lt;/html&gt;</p>
T:0.006796s,M:245.8 KB
返回顶部 留言