liste over filer

Hej Eksperter..

Jeg har i længere tid brugt denne kode for at vise nogle af mine biblioteker på serveren, men jeg er træt af at min oversigts fil skal være i listen. Jeg vil derfor gerne flytte den en mappe opad, så den ikke indgår i listen, men stadig viser en bestemt mappe.

Hvordan ændrer jeg i det, så jeg ikke skal have filen i samme mappe?

strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
Set objSubFolders = objFolder.SubFolders


For Each objFolder in objSubFolders
Response.Write objFolder.Name & "<br>"
Next

Response.Write "<br>"

For Each objFileItem in objFolderContents
Response.write objFileItem.Name & "<br>"
Next

/jsc