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