GetSpecialFolder fonts,desktop ECT 2

[PWise]

In the version of VB scripting help file that I have the GetSpecialFolder method can only return three folders.
0-windows
1-system
2-temp

I remember a method that returned other folders like the desktop, fonts ect.
I think that there were 13 folders can someone remind what method that was.

Thank you

 

[RobSchultz]

Paraphrased from MSDN...

Dim oWSH
Dim strDesktop
set oWSH = WScript.CreateObject("WScript.Shell")
strDesktop = oWSH.SpecialFolders("Desktop")

Values:
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates

HtH, Rob
robschultz@yahoo.com
-Focus on the solution to the problem, not the obstacles in the way.-

 

[PWise]

THANKS BOB
1) CAN WE RETRIVE THESE FOLDERS BY INDEX # ?
2) WHERE CAN I GET A REFRANCE TO THE WHOLE WSCRIPT.SHELL OBJECT?

 

[RobSchultz]

1) No. You could create an array and loop through them if you needed to.
2) Go to

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/wsObjWScript.asp

Rob
robschultz@yahoo.com
-Focus on the solution to the problem, not the obstacles in the way.-

 

[PWise]

thanks again

 

[jonscott8]

PMFJI, but you can retrieve the folders by index. Try

Dim oWSH
Dim strDesktop
Dim nCounter
Set oWSH = WScript.CreateObject("WScript.Shell&quot
For Each strDesktop In oWSH.SpecialFolders
WScript.Echo strDesktop
Next
For nCounter = 0 To oWSH.SpecialFolders.Length - 1
WScript.Echo oWSH.SpecialFolders(nCounter)
Next Jon Hawkins

 

[RobSchultz]

Doh!

Didn't think of that, Jon. Good work!

Later, Rob
robschultz@yahoo.com
-Focus on the solution to the problem, not the obstacles in the way.-

 

[PWise]

thanks again to both of you
pwise