WScript.Shell error

[Guraknugen]

Hi!

I have a simple function for returning the desktop path, and it has worked fine until now:

Public Function GetDesktopPathName() As String
    Dim oWSHShell As Object

    Set oWSHShell = CreateObject("WScript.Shell")
    GetDesktopPathName = oWSHShell.SpecialDirs("Desktop")
    Set oWSHShell = Nothing
End Function

From one day to another, running it suddenly throws this error message (translated from Swedish):

Runtime error 438
Object doesn't support the method or property.

The line causing this seems to be "GetDesktopPathName = oWSHShell.SpecialDirs("Desktop")"

What might cause this?
Is there a setting I need to do somewhere?

 

[Guraknugen]

Ooops... I'm an idiot...!

Sorry for bothering you with this crap!

I changed the name of some variables recently, doing a search and replace from "Folder" to "Dir". Obviously I accidentally changed the name of "oWSHShell.SpecialFolders" to "oWSHShell.SpecialDirs". I feel really, really stupid now!

Anyone authorized, feel free to remove this thread or at least mark it "solved" or similar.