Device unavailable

Hej

Jeg har følgende kode, hvor der meldes fejl. (jeg skal bruge et script der henter indholdet af en 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

For Each objFileItem in objFolderContents
If objFileItem.Name <> "index.asp" then
Response.write "<a href="
Response.Write(objFileItem.Name)
response.write " target=_blank&gt;"
Response.Write(objFileItem.Name)
Response.write "</a&gt;"
end if
Next
%>

--------------------------------------------

Fejlen sker omkring denne linje:

Set objFile = objFSO.GetFile(strPhysicalPath)

Mvh Mikkel