vbscript SpecialFolders

[Andreas00023 10]

hi!

 

Weiß einer von euch ob es in vbscript für c:\Programme oder c:\Program Files eine Abkürzung gibt das ich keine Pfadangabe schreiben muß? So wie eben bei den SpecialFolders in vbscript...?

[thorgood 10]

Hi

 

Special Folder in VBScript

 

set WshShell = WScript.CreateObject("WScript.Shell")

strPrograms = WshShell.SpecialFolders("Programs")

 

Gültige Special Folder sind:

 

AllUsersDesktop

AllUsersStartMenu

AllUsersPrograms

AllUsersStartup

Desktop

Favorites

Fonts

MyDocuments

NetHood

PrintHood

Programs

Recent

SendTo

StartMenu

Startup

Templates

 

thorgood

[Andreas00023 10]

Danke für die schnelle Info. Aber das stimmt leider nicht. Dieses SpecialFolder ist folgender Pfad:

 

C:\Dokumente und Einstellungen\USER\Startmenü\Programme

 

Ich benötige allerdings:

 

c:\Programme

c:\Program Files

 

usw...

 

Dafür hab ich leider nichts gefunden.

[thorgood 10]

Ups, mein Fehler.

 

Nimm den Pfad aus der Registry

 

set WshShell = WScript.CreateObject("WScript.Shell")

strPrograms = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir")

 

thorgood

[Andreas00023 10]

Super, Danke für die Info. Ich habs jetzt aber bereits folgendermaßen gelöst:

 

objshell.environment("process")("ProgramFiles")

[Andreas00023 10]

Super, Danke für die Info. Ich habs jetzt aber bereits folgendermaßen gelöst:

 

objshell.environment("process")("ProgramFiles")