エクセルのＶＢＡからＤＯＳコマンドのＤＩＲを実行したい

質問

ＤＯＳコマンドのＤＩＲコマンドを、エクセルのＶＢＡから実行したいのですがうまくいきません。助けてください。

ＤＯＳプロンプト上で、たとえば「DIR c:\*.mdb /s/b > c:\aaa.txt」を実行すると、Ｃドライブ上の拡張子(MDB)のファイルの一覧を、aaa.txt上に出力できるのですが、それをエクセルのＶＢＡから実行したいのです。

Shell関数で、COMMAND.COMを実行することはできるのですが、それ以降の指定がわかりません。COMMAND.COMを実行した後、ＤＯＳプロンプトをアクティブにし、「DIR c:\*.mdb /s/b > c:\aaa.txt」をsendkeyで送れば・・・とアドバイスをうけたりもしたのですが、sendkeyでなくてもできた記憶があります。
よい方法があれば教えてください。
よろしくお願いします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

確認してませんが、

Str = " COMMAND.COM /C Dir C:\*.mdb /s/b > C:\aaa.txt "
tempID = Shell(Str, vbNormalFocus)

これでどうでしょうか。
では。

お礼

できました！ありがとうございます。
自分がやったときは、ＣＯＭＭＡＮＤ．ＣＯＭの後の、「／Ｃ」がなかったからうまくいかなかったのかな？
今日中に解決してよかったです。助かりました。