<%
Option Explicit
Dim objFileSys
Dim TheFolder
Dim TheFiles
Dim TheSubFolders
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheFolder = objFileSys.GetFolder("c:\my documents")
Response.Write "Atrybuty: " & TheFolder.Attributes & "<BR>"
Response.Write "Data utworzenia: " & TheFolder.DateCreated & "<BR>"
Response.Write "Data ostatniego dostpu: " & TheFolder.DateLastAccessed & "<BR>"
Response.Write "Data ostatniej modyfikacji: " & TheFolder.DateLastModified & "<BR>"
Response.Write "Napd: " & TheFolder.Drive & "<BR>"
Set TheFiles = TheFolder.Files
Response.Write "Czy folder jest macierzysty: " & TheFolder.IsRootFolder & "<BR>"
Response.Write "Nazwa: " & TheFolder.Name & "<BR>"
Response.Write "Folder nadrzdny: " & TheFolder.ParentFolder & "<BR>"
Response.Write "cieka: " & TheFolder.Path & "<BR>"
Response.Write "Nazwa krtka: " & TheFolder.ShortName & "<BR>"
Response.Write "cieka krtka: " & TheFolder.ShortPath & "<BR>"
Response.Write "Rozmiar: " & TheFolder.Size & "<BR>"
Set TheSubFolders = TheFolder.SubFolders
%> 
