[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
xiewei120120

Rank: 2

帖子
16 
积分
148 
技术
0  
捐助
0  
注册时间
2009-12-5 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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

Rank: 8Rank: 8

帖子
1069 
积分
12123 
技术
38  
捐助
0  
注册时间
2008-5-10 
2楼
发表于 2010-6-23 20:07 | 只看该作者 
  1. set ws = CreateObject("WScript.Shell")

  2. WScript.echo ws.Environment("process").item("ProgramFiles")

  3. WScript.echo ws.ExpandEnvironmentStrings("%ProgramFiles%")
复制代码
命令行参考：hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心，别人才愿意奉献热心！
把查看手册形成条件反射！

TOP

xiewei120120

Rank: 2

帖子
16 
积分
148 
技术
0  
捐助
0  
注册时间
2009-12-5 
3楼
发表于 2010-6-24 11:52 | 只看该作者
麻烦坛主把我的那个改下，要求运行VBS后自动生成1.txt到系统盘的Program Files下，本人实在太菜了!!无限感谢,另再请教下很多的热心朋友帮我解决了问题,论坛提示要我加上已解决字样,不知如何加上,请给指导

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14790 
积分
45966 
技术
847  
捐助
745  
注册时间
2008-6-9 
4楼
发表于 2010-6-24 13:13 | 只看该作者

回复 3楼 的帖子

参考：批处理之家论坛使用常见问题FAQ
http://bbs.bathome.net/thread-3473-1-1.html
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表