<%
Option Explicit
Dim objFileSys
Dim MyDrives
Dim TheDrive
Dim TheRootFolder
Dim RootFolders
Dim SubFolder
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set MyDrives = objFileSys.Drives
set TheDrive = MyDrives.Item("E")
set TheRootFolder = TheDrive.RootFolder
set RootFolders = TheRootFolder.SubFolders
Response.Write "Cakowita liczba folderw w katalogu macierzystym: " & RootFolders.Count & "<P>"
set SubFolder = RootFolders.Item("Admin")
RootFolders.Add "NewFolder"
For Each SubFolder in RootFolders
  Response.Write SubFolder.Name & "<BR>"
Next
%>
