اجرای دستورات DOS درVB

[MenDark]

اجرای دستورات DOS درVB
چگونه می توانیم دستوراتDos را از طریق ویژوال بیسیک اجرا کنیم ؟
ابتداCommand Promptرا فراخوانی می کنیم برای فراخوانی از تابعShell استفاده میکنیم.

Shell "cmd.exe"

Dim WinShell
Set WinShell = CreateObject("Wscript.shell")
"دستور مورد نظر برای اجرا درDos "
WinShell.SendKeys
WinShell.SendKeys "{ENTER}"
مثال
'For Create Folder With Dos Prompt :WinShell.SendKeys "MD C:\Visual" & " Basic"
WinShell.SendKeys "{ENTER}"

'For Showing C Directory :
WinShell.SendKeys "Dir C:\"
WinShell.SendKeys "{ENTER}"

'For Format Floppy Disk Of Dos :WinShell.SendKeys "format A:"
WinShell.SendKeys "{ENTER}"
اگه کم و کاستی هست مارو ببخشیدولطفا کلید تشکر را از زیر فشار دهید اگه زحمتی نیست
خیلی ممنون میشم