اجرای دستورات از طریق cmd

[mahdimk]

سلام
من یه مشکل دارم
میخوام با استفاده از cmd دستورات رو اجرا کنم
از این کد استفاده می کنم

Shell "cmd.exe"
Dim winshell
Set winshell = CreateObject("Wscript.shell")
winshell.SendKeys "dir" & "{enter}"

مشکل اینجاست وقتی تعداد winshell.sendkeys ها زیادتر میشه تعداد cmd هایی هم که باز میشه زیاد میشه
مثلا میرسه به 70تا که کار رو هم انجام نمیده
باید چیکار کنم ؟

[xxxxx_xxxxx]

سلام،
چرا دستورات رو توی یک فایل bat. نمی نویسید، و بعد اونو با دستور Shell اجرا کنید؟
اینطوری که راحت تر هست.