<% FILE_FOLDER = left(Request.ServerVariables("PATH_TRANSLATED"),inStrRev(Request.ServerVariables("PATH_TRANSLATED"), "\")) Dim FileArray() %> <% PripravSoubory TridSoubory(Request.QueryString("sort")) VypisSoubory %>

Jméno souboru

Typ souboru

Velikost souboru

Poslední změna

<% Sub PripravSoubory() Dim objFS, objFolder, objFile,intCounter intCounter = 0 Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFS.getFolder(FILE_FOLDER) ReDim Preserve FileArray(objFolder.Files.Count,4) For Each objFile in objFolder.Files FileArray(intCounter, 0) = objFile.Name FileArray(intCounter, 1) = "" & objFile.Name & "" FileArray(intCounter, 2) = objFile.Type FileArray(intCounter, 3) = objFile.Size FileArray(intCounter, 4) = objFile.DateLastModified intCounter = intCounter + 1 Next Set objFile = Nothing Set objFolder = Nothing Set objFS = Nothing End Sub Sub VypisSoubory() intRows = uBound(FileArray, 1) intCols = uBound(FileArray, 2) For x = 0 To intRows -1 response.write ""&vbcrlf For z = 0 To intCols If z > 0 Then response.write "" & FileArray(x, z) & ""&vbcrlf End IF Next response.write "" &vbcrlf&vbcrlf Next End Sub Sub TridSoubory(sort) End Sub %>