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