Any way to access the Public folder (Vista) or Shared (XP)

from WinCustomize Forums

I'm looking for vbscript to access the Public folder in Vista. I'm using shell and enumeration of special folders, but haven't found any for public or shared.

Anyone have a workaround?

desktopx
3,663 views 3 replies
Reply #1 from Stardock Forums Top

You can use the below to detect Vista (and I'm sure Google will confirm the XP version), and then can you not go to the location directly? i.e. c:\users\public.

Code: vbscript
  3.  strComputer = "."
  4.  Set WshShell = CreateObject("WScript.Shell")
  5.  Dim WshShell
  6.  Set objWMIService = GetObject("winmgmts:" & _
  7.    "{impersonationLevel=impersonate}!\\" & strComputer & _
  8.    "\root\cimv2")
  9.  Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
  10.  For Each objOperatingSystem In colOperatingSystems
  11.    If Instr(objOperatingSystem.Caption, "Vista") > 0 Then
  12.     IsVista = True
  13.    End If
  14.  Next

Not many people change this location, and if you find (via vbscript) that the directory does not exist, you could prompt the user to locate it.

+1 Loading…
Reply #2 from WinCustomize Forums Top

Thanks Martin. :)   I decided to go with the direct solution and prompt. Wanted to make the shortcuts with as little user configuration as possible, but I guess one or two prompts won't hurt.

DeskScapes - Bring your desktop background to life.
Reply #3 from WinCustomize Forums Top

Martin,

 

 Nice to see you around again!