批处理之家 - Powered by Discuz! Board

标题: VBS生成1.txt 到安装盘的Program Files目录下 [打印本页]

作者: xiewei120120 时间: 2010-6-23 19:03 标题: VBS生成1.txt 到安装盘的Program Files目录下

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盘的,所以这个变量的获取和调用我不会写请高手们给个代码

作者: zqz0012005 时间: 2010-6-23 20:07

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

作者: xiewei120120 时间: 2010-6-24 11:52

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

作者: Batcher 时间: 2010-6-24 13:13 标题: 回复 3楼的帖子

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

欢迎光临批处理之家 (http://bbs.bathome.net/)