現在C:\Users\hoge\Desktopにa.vbsを置いています
a.vbs内の絶対表記を相対表記に変えてのですがどのようにすればいいでしょうか？
ただ変えただけでは作業領域がデスクトップになってしまいます
よろしくお願いします
a.vbs
240
228
dim wsh
Dim objFileSystemObject
Dim strFolderPath
set wsh = CreateObject( "WScript.Shell" )
Set objFileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
strFolderPath = objFileSystemObject.GetFolder(".").Path
wsh.CurrentDirectory = "C:\Users\hoge\Desktop\hoge"
wsh.Run "b.vbs"
2625
1149
ここでベストアンサー
2
1
1
コメント（0件)