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

Rank: 1

帖子
42 
积分
89 
技术
1  
捐助
0  
注册时间
2015-6-9 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-10-26 17:55 | 只看该作者

[问题求助] 【已解决】VBS拖入文件启动的方法，相对路径会变，怎么办？

本帖最后由 Tianorder 于 2015-10-28 15:05 编辑 
  1. Set argv = WScript.Arguments

  2. Set fso = CreateObject("Scripting.FileSystemObject")

  3. Set ReadFile = fso.OpenTextFile(argv(0), 1)
复制代码
用这个方法读取文件之后，代码中关于相对路径的代码即会报错。
找了一下，发现相对路径变为C:\Windows\System32了。
这怎么办呢？有什么方法能让相对路径变回来？
BuildPath虽然可以设置相对路径的地址，但我不能确定本文件的相对路径的地址啊....

有解决方法吗？
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享
您好

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2015-10-26 19:24 | 只看该作者
什么意思？并未看到有什么关于相对路径的代码
1

评分人数

    • Tianorder: 因为，我也不明白为什么这代码会改相对路径 ...技术 + 1

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
3楼
发表于 2015-10-26 19:31 | 只看该作者
切换工作路径到第一个参数的父目录：
  1. Dim WshShell

  2. Set WshShell = WScript.CreateObject("Wscript.Shell")

  3. WshShell.CurrentDirectory = WScript.Arguments(0) & "\.."
复制代码
1

评分人数

链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
4楼
发表于 2015-10-28 17:38 | 只看该作者
拖动文件到vbs图标上时，工作路径切换到 c:\windows\system32，猜测应该此时是以宿主路径为工作路径
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

返回列表