01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP File Object</title>
05.</head>
06.<body>
07.<%
08. Dim objFSO, objFile
09. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
10. Set objFile = objFSO.GetFile(Server.MapPath("thaicreate.txt"))
11. Response.Write "Attributes : " & objFile.Attributes & "<br>"
12. Response.Write "Name : " & objFile.Name & "<br>"
13. Response.Write "Drive : " & objFile.Drive & "<br>"
14. Response.Write "ShortName : " & objFile.ShortName & "<br>"
15. Response.Write "Size : " & objFile.Size & " bytes <br>"
16. Response.Write "Type : " & objFile.Type & "<br>"
17. Response.Write "Path : " & objFile.Path & "<br>"
18. Response.Write "ParentFolder : " & objFile.ParentFolder & "<br>"
19. Response.Write "ShortPath : " & objFile.ShortPath & "<br>"
20. Response.Write "DateCreated : " & objFile.DateCreated & "<br>"
21. Response.Write "DateLastAccessed : " & objFile.DateLastAccessed & "<br>"
22. Response.Write "DateLastModified : " & objFile.DateLastModified & "<br>"
23. Set objFSO = Nothing
24. Set objFile = Nothing
25.%>
26.</body>
27.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
