VBAにてGitコマンドの実行

お世話になります。すいません、、基本的な質問かもしれません。。
Access2013にてGitのクローンを自動実行するVBAを実装しており、
こちらはコマンドプロンプトで実行しようとしていまして、
直接コマンドプロンプトでクローンコマンドを実行できることを確認しています。
実行したコマンドは以下となります。

cd [出力先フォルダパス]
git clone https://[ユーザ名]:[パスワード]@gitlab.[ドメイン]/intra-system-group/[プロジェクト名].git

今度は同じコマンドをVBAにて実行しようとしていまして、
コマンドプロンプトを実行するVBAは以下となります。

Sub CommandPrompt_Execute(CommandStr As String)
    Dim WSH, wExec, sCmd As String, Result As String
    Set WSH = CreateObject("WScript.Shell")
    Set wExec = WSH.Exec("%ComSpec% /c" & CommandStr)
    Do While wExec.Status = 0
        DoEvents
    Loop
    
    wExec.StdOut.ReadAll
'    Result = wExec.StdOut.ReadAll
'    MsgBox Result
    Set wExec = Nothing
    Set WSH = Nothing
End Sub

cdコマンドを実行してからcloneコマンドを実行したいのですが、
連続でコマンドを実行するやり方がよくわからず、、
[/c]部分を除去してExecを連続でやろうとしてもうまくいかずで、、
1回のコマンドでフォルダ指定とcloneコマンドを実行できれば
上手くいくのかも、っという淡い期待があるのですが、
何か良い方法はないでしょうか？
よろしくお願い致します。

flied_onion

2016/08/30 11:54

コードの部分は ``` で挟むか、コードを選択して codeボタンを押してコードブロックにしてください

menmen

2016/08/31 03:55

flied_onionさんご指摘ありがとうございます！コードの記述について失礼致しました。以後気を付けます。。

行動規範の内容に同意します

回答3件

複数コマンドを連続実行したいのであれば、takasima20さんの言われるように複数コマンドの部分をバッチファイルにまとめて、VBAからはそのバッチを呼び出す方が自然なつくりになると思います。

しかし、今回やりたいことは複数コマンドの連続実行したいというより作業フォルダを指定したいのではないのでしょうか？

そうであれば、

WSH.CurrentDirectory = "C:\Work"    '作業フォルダの指定

のような記述で作業フォルダの指定ができます。

見当違いなアドバイスでしたらすみません。
参考までに。

投稿2016/08/31 01:18

編集2016/08/31 01:19

jawa

総合スコア3013

menmen

2016/08/31 02:08

jawaさん回答ありがとうございます！ [CurrentDirectory]でフォルダ指定もできるんですね。。試しに実装したところ確かにこちらでも希望通りの動きが確認できました！ただこの方法だとsubをちょっと改修しなければならないので、、現状のsubを変更せずに実行したいとなるとflied_onionさんの回答がベストとなりますので、申し訳ありませんがそちらをベストアンサーに選ばせていただきました。改めて回答ありがとうございました！また機会がありましたらよろしくお願いします！

行動規範の内容に同意します