Jag får felet:
"Microsoft VBScript runtime (0x800A0035)
File not found"
När jag kör min kod.

Koden är tänkt att bara lista alla filer i en mapp, men ...
Här är koden:

<code>
mapp = request.QueryString("visa")
Dim strPathInfo, strPhysicalPath

strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath("pics\"&mapp)&"\"

Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile("strPhysicalPath")
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
</code>

Min tanke är att den inte letar på rätt ställe... men jag har ju haft fel förut :/

Är det någon som ser något fel?

/Anders

Hej

Testa att skriva ut några variabler t ex strPathInfo då ser du ju vad den innehåller, den kanske pekar på rätt mapp redan, eller så är det så att hela sökvägen är fel då kan du ju testa att skriva ut strPhysicalPath och mapp också.

Att skriva ut någon av dessa variablre tror jag kommer att lösa ditt problem.

/Anna-Karin

Kolla in [Lista alla filer i en mapp med FSO] eller [Lista filer i mapp!]

/Johan

När jag skriver ut strPathInfo så får jag en korrekt path... det är detta som förvirrar mig... men tack i alla fall.

Vart använder du strPathInfo egentligen?
Det kanske är så att det är den rätta sökvägen, men att du inte använder den?

Testa att skriva ut strPhysicalPath och se vad den ger eftersom det är den som du skickar in till funktionen.

/Anna-Karin

Du ska inte ha " runt strPhysicalPath i anropet till objFSO.GetFile()
<code>

Dim mapp
Dim strPathInfo
Dim strPhysicalPath
Dim objFSO
Dim objFile
Dim objFileItem
Dim objFolder
Dim objFolderContents
mapp = request.QueryString("visa")

strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath("pics\" & mapp) & "\"

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


</code>