<% option explicit dim sRoot, sDir, sParent, objFSO, objFolder, objFile, objSubFolder, sSize %> <%session.lcid=1043%> Deze pagina bevat lijsten met afkortingen die met p2000 meldingen te maken hebben. <% sRoot = Server.MapPath("/Afkortingen/") Response.Write "

" & sDir & "

" & vbCRLF Set objFSO = CreateObject("Scripting.FileSystemObject") on error resume next Set objFolder = objFSO.GetFolder(sRoot) if err.number <> 0 then Response.Write "Could not open folder" Response.End end if on error goto 0 sParent = objFSO.GetParentFolderName(objFolder.Path) sParent = mid(sParent, len(sRoot) + 1) Response.Write "" For Each objSubFolder In objFolder.SubFolders Response.Write "" & vbCRLF Next Response.Write "" & vbCRLF For Each objFile In objFolder.Files if Clng(objFile.Size) < 1024 then sSize = objFile.Size & " bytes" else sSize = Clng(objFile.Size / 1024) & " KB" end if Response.Write "" & vbCRLF Next Response.Write "
" & objSubFolder.Name & "
NaamGrootteLaatst gewijzigd
" & objFile.Name & "" & sSize & "" & objFile.DateLastAccessed & "
" %>