Ogiltig klassträng

Feltyp:
Serverobjekt, ASP 0177 (0x800401F3)
Ogiltig klassträng
/movies.asp, line 24

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

rad 24:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 

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

hela:

<%
Response.Buffer = true
Server.ScriptTimeout = 36000

Sub IterateThroughDirectory(objFolder)
Response.Write "<br/><hr noshade><b>/" & objFolder.Name & "</b><br/>"

For Each objFile in objFolder.Files 
    Response.Write objFile.Name & "\<br/\>" 
Next 

Dim objFile 

Dim objSubFolder 
For Each objSubFolder in objFolder.SubFolders 
    IterateThroughDirectory objSubFolder 
Next 

End Sub

Dim objFSO 
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 

Dim strCurrentFolder 
strCurrentFolder = Server.MapPath("..\\..\\download\\movies") 
Dim objFolder 
Set objFolder = objFSO.GetFolder(strCurrentFolder) 


IterateThroughDirectory objFolder 

%>