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

Tianorder

Set argv = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
Set ReadFile = fso.OpenTextFile(argv(0), 1)
复制代码

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

有解决方法吗？

pcl_test

什么意思？并未看到有什么关于相对路径的代码

CrLf

切换工作路径到第一个参数的父目录：

Dim WshShell
Set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.CurrentDirectory = WScript.Arguments(0) & "\.."
复制代码

CrLf

拖动文件到vbs图标上时，工作路径切换到 c:\windows\system32，猜测应该此时是以宿主路径为工作路径