<%
Option Explicit
Dim objFileSys
Dim TheFolder
Dim TheFiles
Dim AFile
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheFolder = objFileSys.GetFolder("c:\my documents")
Set TheFiles = TheFolder.Files
Response.Write "Oglna liczba plikw w zbiorze: " & TheFiles.Count & "<P>"
Set AFile = TheFiles.Item("nmaha.mdb")
For Each AFile in TheFiles
  Response.Write AFile.Name & "<P>"
Next
%>
