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
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 "