%
Dim strPath
strPath = Server.MapPath("index.php")
Dim objFSO , objFile
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strPath)
%>
File size is <%= objFile.Size %> bytes
File type is <%= objFile.Type %>
File last modified on <%= objFile.DateLastModified %>
File name is <%= objFile.Name %>