Objekt FileSystemObject - Příklad

Adresář s operačním systémem: "C:\WINDOWS"
Adresář System: "C:\WINDOWS\system32"
Dočasný adresář: "C:\WINDOWS\TEMP"
Aktuální adresář: "C:\WINDOWS\system32"
Vygenerované dočasné jméno: "rad6CD25.tmp"

Informace o tomto souboru:
Cesta: "E:\sites\www12\mibla\priklady\filesystem.asp"
Délka souboru: 2502 B
Čas vytvoření: 20/07/2007 13:14:03
Čas poslední modifikace: 20/07/2007 13:14:03
Datum posledního přístupu: 15/05/2012 04:50:40

Informace o této složce:
Cesta: "E:\sites\www12\mibla\priklady"
Velikost složky: 21194 B
Čas vytvoření: 20/07/2007 13:11:55
Čas poslední modifikace: 20/07/2007 13:14:17
Datum posledního přístupu: 16/05/2012 22:17:39

Seznam souborů ve složce:
NázevVelikostČas vytvořeníČas poslední změny
dictionary.asp1576 B20/07/2007 13:14:0320/07/2007 13:14:03
drives.asp3357 B20/07/2007 13:14:0320/07/2007 13:14:03
excel.asp1653 B20/07/2007 13:14:0320/07/2007 13:14:03
faktorial_for.asp739 B20/07/2007 13:14:0320/07/2007 13:14:03
faktorial_while_if.asp1040 B20/07/2007 13:14:0320/07/2007 13:14:03
filesystem.asp2502 B20/07/2007 13:14:0320/07/2007 13:14:03
priklady_sablona.asp403 B20/07/2007 13:14:0320/07/2007 13:14:03
prvni_asp_skript.asp593 B20/07/2007 13:14:0320/07/2007 13:14:03
request_form.asp1787 B20/07/2007 13:14:0320/07/2007 13:14:04
request_querystring.asp1834 B20/07/2007 13:14:0420/07/2007 13:14:04
request_servervariables.asp966 B20/07/2007 13:14:0420/07/2007 13:14:04
request_servervariables_for.asp974 B20/07/2007 13:14:0420/07/2007 13:14:04
request_servervariables_while.asp1006 B20/07/2007 13:14:0420/07/2007 13:14:04
spojovani_retezcu.asp727 B20/07/2007 13:14:0420/07/2007 13:14:04
styly.asp921 B20/07/2007 13:14:1720/07/2007 13:14:17
zdrojak.asp1116 B20/07/2007 13:14:1720/07/2007 13:14:17

Výpis zdrojového textu souboru http://www12.brinkster.com:80/mibla/priklady/filesystem.asp
<!-- METADATA TYPE="TypeLib" FILE="scrrun.dll" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=windows-1250">
  <title>Jemný úvod do ASP - Objekt FileSystemObject - Pøíklad</title>
</head>
<body>
     
<h1>Objekt FileSystemObject - Pøíklad</h1>

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
With Response
  .Write "Adresáø s operaèním systémem: """ & objFSO.GetSpecialFolder(WindowsFolder).Path & """<BR>"
  .Write "Adresáø System: """ & objFSO.GetSpecialFolder(SystemFolder).Path & """<BR>"
  .Write "Doèasný adresáø: """ & objFSO.GetSpecialFolder(TemporaryFolder).Path & """<BR>"
  .Write "Aktuální adresáø: """ & objFSO.GetAbsolutePathName("") & """<BR>"
  .Write "Vygenerované doèasné jméno: """ & objFSO.GetTempName & """<BR>"
  .Write "<hr>"
  cesta = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
  .Write "Informace o tomto souboru:<BR>"
  .Write "Cesta: """ & cesta & """<BR>"
  Set soubor = objFSO.GetFile(cesta)
  .Write "Délka souboru: " & soubor.Size & " B<BR>"
  .Write "Èas vytvoøení: " & soubor.DateCreated & "<BR>"
  .Write "Èas poslední modifikace: " & soubor.DateLastModified & "<BR>"
  .Write "Datum posledního pøístupu: " & soubor.DateLastAccessed & "<BR>"
  .Write "<hr>"
  .Write "Informace o této složce:<BR>"
  Set slozka = soubor.ParentFolder
  .Write "Cesta: """ & slozka.Path & """<BR>"
  .Write "Velikost složky: " & slozka.Size & " B <BR>"
  .Write "Èas vytvoøení: " & slozka.DateCreated & "<BR>"
  .Write "Èas poslední modifikace: " & slozka.DateLastModified & "<BR>"
  .Write "Datum posledního pøístupu: " & slozka.DateLastAccessed & "<BR>"
  .Write "<hr>"
  .Write "Seznam souborù ve složce: <BR>"
  .Write "<TABLE>"
  .Write "<TR><TH>Název<TH>Velikost<TH>Èas vytvoøení<TH>Èas poslední zmìny"
  Set soubory = slozka.Files
  For Each soubor In soubory
    .Write "<TR>"
    .Write "<TD>" & soubor.Name & "</TD>"
    .Write "<TD>" & soubor.Size & " B</TD>"
    .Write "<TD>" & soubor.DateCreated & "</TD>"
    .Write "<TD>" & soubor.DateLastModified & "</TD>"
    .Write "</TR>"
  Next
  .Write "</TABLE>"
End With
%>

 
</body>
</html>


Hlavní stránka