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

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) & "\.."