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