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

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

ＤＯＳプロンプト上で、たとえば「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 回答日時： 2002/03/26 16:41

こんにちは。

maruru01です。

確認してませんが、

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

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

この回答へのお礼

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

お礼日時：2002/03/26 17:48