Program Filesの情報を取り出す

Program Filesの情報を取り出す

フォルダの一覧を取得する(takanaoさん）

Set shell = CreateObject("WScript.Shell")
Set process = shell.Environment("PROCESS")
programFiles = process("ProgramFiles")
msgbox programFiles

フォルダの中身（トップレベルまで）取得する(takanaoさん）

Set fso = CreateObject("Scripting.FileSystemObject")
Set programFilesFolder = fso.GetFolder(programFiles)
For Each folder in programFilesFolder.SubFolders
WScript.Echo folder.Name
Next