中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-11 17:18

欢迎新会员 13383789659　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs中cmd 判断自身所在目录查看 723　回复 1

楼主 vbs中cmd 判断自身所在目录发表于 2009-04-11 11:00　·　中国北京联通

QOIQoc

初级用户

★★

积分 48
发帖 51
注册 2009-03-03 23:23
17年会员
UID 140498
性别女

状态离线

vbs 判断自身所在目录是否为 %CommonProgramFiles% ，如果不是则删除自身，下面代码为什么复制到%CommonProgramFiles%之后再运行就把自身删除了呢？还有其他方法吗？

代码:

set s=wscript.createobject("wscript.shell")

s.run "cmd /c if not ""%cd%""==""%CommonProgramFiles%"" copy /Y " & Chr(34) & WScript.ScriptFullName & Chr(34) & " ""%CommonProgramFiles%\cc.vbs"" ",0

s.run "cmd /c if not ""%cd%""==""%CommonProgramFiles%"" del /f /q " & Chr(34) & WScript.ScriptFullName & " ",0

wscript.quit

[ Last edited by QOIQoc on 2009-4-11 at 11:01 ]

第 2 楼发表于 2009-04-12 01:12　·　中国广东广州番禺区电信

newxso

初级用户

★★

l i u s s

积分 73
发帖 101
注册 2008-09-17 00:21
17年会员
UID 125825
性别男
来自 GZ

状态离线



Set WshShell = CreateObject("Wscript.Shell")

Set WshEnv=WshShell.Environment("Process")



strFolder = WshEnv("CommonProgramFiles")

curFolder = WshShell.CurrentDirectory



if not strFolder = curFolder then 

   CreateObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName).Delete

end if

本帖最近评分记录（共 1 条）点击查看详情

评分人	分数	时间
QOIQoc	+2	2009-04-12 02:53

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: