您的位置：首页 > 编程语言 > VB

关于拖拽文件启动VBS文件会导致相对路径改变的问题以及解决方法

2015-10-26 20:17 826 查看 
Set argv = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
Set ReadFile = fso.OpenTextFile(argv(0), 1)


用以上代码时，即可在代码中打开拖拽到VBS文件上的文件，对其进行操作。

但这会将相对路径改为C:\Windows\System32

这样将无法修改或引用其他相对路径的文件，解决方法如下：

在代码中加入以下代码即可：

Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.CurrentDirectory = WScript.Arguments(0) & "\.."
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航