質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

91.02%

  • VBScript

    195questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

  • WSH

    26questions

    WSH(Windows Script Host)とは、Windows上でテキストファイルに記述したJavaScriptやVBScriptなどのスクリプトを実行するホスト環境のことです。COMを通じたレジストリ操作やWMIへのアクセスが可能で、複雑な処理も行うことができます。

VBS Execメソッドでのアプリケーションの起動について

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 185

mozuq

score 2

前提・実現したいこと

VBSで、txtファイルを読み込んだ上で特定のソフトを起動し、ソフトが終了したら注意メッセージを出したいと思っております。
このとき、txtファイル、特定のソフトともに変数に格納しています。
txtファイル、特定のソフトともに変数にせずフルパスで書けば、txtファイルを読み込んだ上で問題なく起動するのですが、変数にするとtxtファイルを読み込んでくれません。
変数での書き方(ソースコードの下から4行目)をご教示いただけないでしょうか。

なお、txtファイルが一定の頻度で変わる、ソフトは使用者によって存在場所が違うため、変数に格納しなければなりません。

該当のソースコード

Option Explicit
Dim objShell, ObjFolder, objFiles, ea, filename, FSO, EXEPROGRAM, oExec

'txtファイルのあるフォルダ名
Const TRGTFOLDER ="C:\aaa\bbb\"

Set objShell = WScript.CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'ソフトのパスを変数に格納
If objFSO.FileExists("C:\Program Files\ccc\ddd\abc.EXE") = True then
    EXEPROGRAM = "C:\Program Files\ccc\ddd\abc.EXE"
Else
    If objFSO.FileExists("C:\Program Files (x86)\ccc\ddd\abc.EXE") = True then
        EXEPROGRAM ="C:\Program Files (x86)\ccc\ddd\abc.EXE"
    Else
        MsgBox"abc.exeが存在しません"
        WScript.Quit
    End if
End if

Set ObjFolder = objFSO.getFolder(TRGTFOLDER)
Set objFiles = ObjFolder.Files 

'txtファイル名の取得
For Each ea In objFiles
If LCase(Right(ea,4))=".txt" Then
    filename= ea
    MsgBox(ea)  & vbCrLf & vbCrLf & "このファイルを読み込んでabc
.exeを起動します"
    Exit For
End If
Next

If Len(filename)>0 Then
    '↓★★★ここの書き方でつまづいています!★これだと起動しません★★★
    Set oExec = objShell.Exec(EXEPROGRAM filename)
Else    
    MsgBox "ファイルは見つかりません。",16 
End If

試したこと

課題に対してアプローチしたことを記載してください

補足情報(言語/FW/ツール等のバージョンなど)

より詳細な情報

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

0

EXEPROGRAMのアプリにfilenameをパラメーターとして与えて起動できればいいんですよね?
アプリ名 パラメーターという文字列が生成できれば良いので、下記のようにすればいけると思います。

Set oExec = objShell.Exec(EXEPROGRAM & " " & filename)

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/01/15 11:59

    ありがとうございます!
    うまくできました!
    自分では全く思いつかなかったので、本当に助かりました。
    ありがとうございました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 91.02%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • VBScript

    195questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

  • WSH

    26questions

    WSH(Windows Script Host)とは、Windows上でテキストファイルに記述したJavaScriptやVBScriptなどのスクリプトを実行するホスト環境のことです。COMを通じたレジストリ操作やWMIへのアクセスが可能で、複雑な処理も行うことができます。