VBSでコマンドプロンプトにコマンドを入力したい。

Question

VBSでコマンドプロンプトにコマンドを入力したい。

VBSで変数txtCmdをカレントフォルダでコマンドプロンプトで入力し、エンターを押した際実行されることを行いたいです。

発生している問題・エラーメッセージ

下記のようなVBSを作成しましたが、コマンドプロンプトが開いたまま何も入力されていないようです。

該当のソースコード

下記のサイト内容について、vbsで実行しようとしています。
https://aprico-media.com/posts/3682

Dim objCMD
Dim txtCmd
Dim tmp1
Dim tmp2

tmp1 = "test.zip"
tmp2 =  "memo.txt memo2.txt"

'txtCmd = """C:\Program Files\7-Zip\7z.exe"" a test.zip memo.txt"
txtCmd = """C:\Program Files\7-Zip\7z.exe"" a " &  tmp1 & tmp2

Set objCMD = CreateObject("WScript.Shell")
objCMD.Run "cmd " & txtCmd

試したこと

下記確認したところ、変数txtCmdは問題がなく、その他のコマンドはきちんと実行されました。

Msgbox("cmd /c " & txtCmd)
objCMD.Run "cmd /c ipconfig /all > c:\ip.txt",0,false

Comments

[otn]

何をしたいのか読み取れません。質問文のコードは一部だけでは？

[cerophan]

「試したこと」が関係なすぎて申し訳ありません、素人なので一応根本的なところで間違ってないか、ちゃんと実行されるか、確認しただけの内容です。その他、txtCmdの内容を追記しました。
ご教示いただけると助かります。よろしくお願いいたします。

[cerophan]

因みに、txtCmdの内容をクリップボードに保存して、カレントフォルダからcmdに入りペーストしたところ、のぞみどおり実行されます。

Answer 1

txtCmd = """C:\Program Files\7-Zip\7z.exe""" a test.zip memo.txt
が文法的に間違っているので、コンパイルエラーになると思いますが？

txtCmd = """C:\Program Files\7-Zip\7z.exe"" a test.zip memo.txt"
では？

また、
objCMD.Run "cmd " & txtCmd は objCMD.Run "cmd /c " & txtCmdですね。

Comments

[cerophan]

スミマセン…。すべてのコードを掲載できず、部分的に転記していたので間違っていました。
実際はファイル名も変数なので、改めてコードを修正しました。
ちなみにファイル名を変数にしない場合でも、やはりコマンドプロンプトが開くだけで何も入力されないじょうたいです。

[otn]

追記しました。

[cerophan]

cmd /c については、コマンドが入っていない気がして、目視できるかなと思って敢えて「/c」を外していました。
その他、質問に記載していたものが原文とは違ったのですが""について改めて、いくつかいじっていたら動くようになりました…！
正直なところ、どこの””？が原因だったかわからないまま直ったのですが、もっと別のところに問題があると思い込んでいました…。
素人だと思い込みだったり無知で原因の目途がつかないので本当に助かります。ありがとうございました。

[otn]

正しい事実（現象）が提示されていないので、なんとも言いがたいです。
素人でも、コピペさえ出来れば、事実の提示は出来ると思うのですが。