VBSファイルを実行しているフォルダのPATHを調べて、変数に入れて仕込んでいます。
VBSで作成したツールを渡したときに、ファイルを読み込んだり連携して動かしている場合なんかは、制御用のファイルを含んだフォルダで渡しますよね。
渡した先はどのPATHから実行するかわからないので、自身のPATHを実行前に読み込ませます。
そうすれば制御ファイルはどこへいってもOKになりますので。渡したフォルダからしっかり実行してもらえればOKになります。
サンプル
---------------------------------------------------------------------------
Dim objFS, objFolder
Dim strPath
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("..")
strPath = objFolder.Path
Set objFile = objFSO.OpenTextFile(strPath & "\MAC-Update\MAC-list\MAC.log", ForReading)
strContents = objFile.ReadAll
objFile.Close
---------------------------------------------------------------------------
このサンプルでは、VBSを実行しているフォルダPATHを strPath に入れて、同じフォルダにある \MAC-Update\MAC-list\MAC.log ファイルを読み込んでます。
Tweet
