ソフトの自動インストールをvbsと同じ階層で行いたい

Question

vbsでFFFTPの自動インストールを行いたいです。
今の状態でもインストールは出来るのですが、ソフトの場所をフルパスで指定しています。
別のPCでも実行できるようにvbsと同じ階層に置けば実行できるようにするにはどうすればよいですか。

WSHShell.Exec "C:\Users\ユーザ名\Desktop\ffftp-1.98f.exe"

の部分です。

'管理者権限で実行させる

Dim oShellApp
Set oShellApp = Wscript.CreateObject("Shell.Application")
if Wscript.Arguments.Count = 0 then
  oShellApp.ShellExecute "wscript.exe", WScript.ScriptFullName & " runas", "", "runas", 1
  Wscript.Quit
end if
Set oShellApp = Nothing

'ffftpフォルダ作成
Dim fs
Dim fn

Set fs = WScript.CreateObject("Scripting.FileSystemObject")
fn = "C:\Program Files (x86)\ffftp"

'ffftpフォルダの有無を確認
if fs.FolderExists(fn) = False then
fs.CreateFolder("C:\Program Files (x86)\ffftp")
end if

Dim WSHShell

Set WSHShell=CreateObject("WScript.Shell")
'FFFTPインストーラー起動
WSHShell.Exec "C:\Users\ユーザ名\Desktop\ffftp-1.98f.exe"

WScript.Sleep 2000 '2秒待つ

WSHShell.AppActivate ("インストールの確認")
'１インストールの確認
WSHShell.SendKeys "{N}"
'２FFFTP説明
WSHShell.SendKeys "{Tab}"
WSHShell.SendKeys "{N}"
'３コピー先フォルダ指定
WSHShell.SendKeys "{N}"
'４インストール実行
WSHShell.SendKeys "{N}"
WScript.Sleep 2000 '2秒待つ
'５インストール完了
WSHShell.SendKeys "{Tab}"
WSHShell.SendKeys "{Enter}"

Answer 1

WScript.ScriptFullNameでスクリプトのフルパスが得られるので、
そのディレクトリ部分を取って、プログラムファイル名を連結すれば良いかと思います。

ディレクトリ部分を取るのは、InStrRevとLeftで文字列処理するか、
CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)で。

Comments

[kanata0214]

ありがとうございます、無事動きました！
調べていくつか出てきたんですが、自分のコードへの落とし込みかたが分からなかったので、助かりました。