Chiamata di routine o argomento non validi

[wegawhite]

Cosa sbaglio in questo codice perchè restituisce:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi

Codice:

rDrive = "D:\Documents and Settings\riserva\Documenti"

Dim rFolder
rFolder = Trim(Request.QueryString("folder"))

Dim extraPath
extraPath = "?drive=" & rDrive & "&folder=" & rFolder

If Len(rDrive) < 1 Then
		rDrive = "C"
	End If


Dim fso
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		
	Dim drive, rootFolder

	If Len(rFolder) < 1 Then
		Set drive = fso.GetDrive(rDrive) 
		Set rootFolder = drive.RootFolder
	Else
		Set rootFolder = fso.GetFolder(rFolder)
	End If
	
	Dim parentFolder, parPath
	
	If Not rootFolder.IsRootFolder Then
		Set parentFolder = rootFolder.ParentFolder
		parPath = parentFolder.Path
		parPath = "folder.asp?drive=" & rDrive & "&folder=" & Server.URLEncode(parPath)
	Else
		parPath = "drive.asp?drive=" & rDrive
	End If