set fso=createobject("Scripting.FileSystemObject") set fn=fso.GetFile("E:/AD.txt") msgbox "文件創建時間："&fn.DateCreated msgbox "文件最后修改時間："&fn.DateLastModified msgbox "文件最后訪問時間："&fn.DateLastAccessed set fn=nothing set fso=nothing
<% dim fs,fname set fs=Server.CreateObject("Scripting.FileSystemObject") set fname=fs.CreateTextFile("c:/test.txt",true) fname.WriteLine("Hello World!") fname.Close set fname=nothing set fs=nothing %>
