VBS生成1.txt 到安装盘的Program Files目录下

xiewei120120

dim shell
set shell=CreateObject("Wscript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFS.CreateTextFile("C:\Program Files\1.txt")
objNewFile.WriteLine "解压密码:123"
objNewFile.Close

本人想把这个1.txt 生成在系统盘的Program Files下,因为并不是那个系统都安装在C盘的,所以这个变量的获取和调用我不会写请高手们给个代码

Batcher

参考：批处理之家论坛使用常见问题FAQ
http://bbs.bathome.net/thread-3473-1-1.html

xiewei120120

麻烦坛主把我的那个改下，要求运行VBS后自动生成1.txt到系统盘的Program Files下，本人实在太菜了!!无限感谢,另再请教下很多的热心朋友帮我解决了问题,论坛提示要我加上已解决字样,不知如何加上,请给指导

zqz0012005

set ws = CreateObject("WScript.Shell")
WScript.echo ws.Environment("process").item("ProgramFiles")
WScript.echo ws.ExpandEnvironmentStrings("%ProgramFiles%")
复制代码