<%
Option Explicit
Dim objFileSys
Dim TheFolder
Dim TheFiles
Dim TheFile
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheFolder = objFileSys.GetFolder("c:\my documents")
Set TheFiles = TheFolder.Files
set TheFile = TheFiles.Item("nmaha.mdb")
If TheFile.Attributes and 1 Then
  Response.Write "Plik ma atrybut tylko do odczytu.<BR>"
else
  Response.Write "Plik nie ma atrybutu tylko do odczytu.<BR>"
End If
TheFile.Attributes = TheFile.Attributes or 1
If TheFile.Attributes and 1 Then
  Response.Write " Plik ma atrybut tylko do odczytu.<BR>"
else
  Response.Write " Plik nie ma atrybutu tylko do odczytu.<BR>"
End If
TheFile.Attributes = TheFile.Attributes and not 1
If TheFile.Attributes and 1 Then
  Response.Write " Plik ma atrybut tylko do odczytu.<BR>"
else
  Response.Write " Plik nie ma atrybutu tylko do odczytu.<BR>"
End If
Response.Write "Atrybuty: " & TheFile.Attributes & "<BR>"
Response.Write "Data utworzenia: " & TheFile.DateCreated & "<BR>"
Response.Write "Data ostatniego dostpu: " & TheFile.DateLastAccessed & "<BR>"
Response.Write "Data ostatniej modyfikacji: " & TheFile.DateLastModified & "<BR>"
Response.Write "Napd: " & TheFile.Drive & "<BR>"
Response.Write "Nazwa: " & TheFile.Name & "<BR>"
Response.Write "Folder macierzysty: " & TheFile.ParentFolder & "<BR>"
Response.Write "cieka: " & TheFile.Path & "<BR>"
Response.Write "Nazwa krtka: " & TheFile.ShortName & "<BR>"
Response.Write "cieka krtka: " & TheFile.ShortPath & "<BR>"
Response.Write "Rozmiar: " & TheFile.Size & "<BR>"
Response.Write "Typ: " & TheFile.Type & "<BR>"
%>
