Dundas ASPUpload

Jeg fandt noget brugbart på http://www.eggheadcafe.com/authorcodesamples/20010226.asp, men nu får jeg en fejl:

Microsoft VBScript runtime error '800a004c'
Path not found

/dcu/min startside/artikler/admin/upload/FileTransferFunctions.asp, line 160

Kode:

  Function GetDiskSpaceUsed()

            dim sRoot
            dim oFS
            dim oFSFolder
            dim lSize

            on error resume next

            sRoot = GetRootFolder()
         
            Set oFS = Server.CreateObject("Scripting.FileSystemObject")
            <LINIE 160>Set oFSFolder = oFS.GetFolder(sRoot)</LINIE 160>
           
            lSize = oFSFolder.Size
            if lSize > 0 then lSize = ConvertBytesToMB(lSize)
           
            GetDiskSpaceUsed = lSize
       
            Set oFSFolder = nothing
            Set oFS = nothing

  End Function

Jeg fik skidtet til at virke.

Reglen på E er, at løsningen skal postes, men scriptet er imidlertid laaangt, så hvis der er nogen der insisterer, så råb højt.