Home/ Questions/Q 5941525
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-22T16:07:21+00:00

Set objFS = CreateObject(Scripting.FileSystemObject) Set objShell = CreateObject(WScript.Shell) strCurrentDirectory = objShell.SpecialFolders(AllUsersDesktop) Set objShell =

  • 0
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
strCurrentDirectory = objShell.SpecialFolders("AllUsersDesktop")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strCurrentDirectory)
Set objFolderItem = objFolder.Self
strCurrentDirectory = objShell.SpecialFolders("AllUsersDesktop")

The script crashes on the last line

The error message is

Microsoft VBScript runtime error (59,
1) : Object doesn’t support this
property or method:
‘objShell.SpecialFolders’

* script completed – exit code: 259 *

I used http://www.wisesoft.co.uk/scripts/vbscript_display_special_folder_locations.aspx as a reference.

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    When ObjShell is a WScript.Shell you can access its implemented SpecialFolders but you then reassign it to an instance Shell.Application which does not implement SpecialFolders, hence the error.

    strCurrentDirectory = objShell.SpecialFolders("AllUsersDesktop")

    retrieves the path, then:

    Set objFolder = objShell.Namespace(strCurrentDirectory)

    fetches it as a shell item, for example after that:

    msgbox objFolder.Title

    would echo "Desktop"

    • 0