VBSにちょっと手を出す2

またまたVBSを使ってみた
今度はある決まったファイルをTerapadで開き、その後firefoxでそのファイルを開くかどうか確認するというプログラム

Option Explicit
On Error Resume Next

Dim objWshShell ' WshShell オブジェクト
Dim strCmdLine ' 実行するコマンド
Dim objExecCmd ' 実行コマンド情報

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
strCmdLine = "C:\Program Files (x86)\TeraPad\TeraPad.exe C:\file.html"
Set objExecCmd = objWshShell.Exec(strCmdLine) 'strCmdLineを実行
If Err.Number = 0 Then
'WScript.Echo strCmdLine & " を起動しました。"
Do While objExecCmd.Status = 0 'ループ
' 1秒待ってみる
WScript.Sleep(1000)
Loop
Else
WScript.Echo "エラー: " & Err.Description
End If

IF MsgBox("Firefoxで開きますか?",vbOKCancel,"HTML編集") = vbOK Then
strCmdLine = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe C:\file.html"
objWshShell.Exec(strCmdLine)
If Err.Number = 0 Then
'WScript.Echo strCmdLine & " を起動しました。"
Else
WScript.Echo "エラー: " & Err.Description
End If
End IF
Else
WScript.Echo "エラー: " & Err.Description
End If

Set objWshShell = Nothing

Terapadを終了させた後に、上のメッセージボックス表示させるだけなんですけどね

ファイルを自分で選べるようにできるといいな
また今度調べてみよう

広告を非表示にする