<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Server.MapPath("Files")) %>
<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP File Object</title> </head> <body> <% Dim objFSO, objFile Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Server.MapPath("thaicreate.txt")) Response.Write "Attributes : " & objFile.Attributes & "<br>" Response.Write "Name : " & objFile.Name & "<br>" Response.Write "Drive : " & objFile.Drive & "<br>" Response.Write "ShortName : " & objFile.ShortName & "<br>" Response.Write "Size : " & objFile.Size & " bytes <br>" Response.Write "Type : " & objFile.Type & "<br>" Response.Write "Path : " & objFile.Path & "<br>" Response.Write "ParentFolder : " & objFile.ParentFolder & "<br>" Response.Write "ShortPath : " & objFile.ShortPath & "<br>" Response.Write "DateCreated : " & objFile.DateCreated & "<br>" Response.Write "DateLastAccessed : " & objFile.DateLastAccessed & "<br>" Response.Write "DateLastModified : " & objFile.DateLastModified & "<br>" Set objFSO = Nothing Set objFile = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท