Udførelses af DOS kommando linier i Visual Basic

Via din kode opretter du en .bat fil, som du derefter kører med ShellExecute. Hvis den kommando du ønsker at køre findes som enkeltstående fil, (f.eks. format.com), kan du køre den direkte fra ShellExecute funktionen. Hvis du sætter nShowCmd til 0, vises programvinduet ikke, mens det køres.

f.eks.: (forudsætter at du i forvejen har oprettet c:\\vbdir.bat)

Private Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim res As Long

Private Sub Form_Load()
res = ShellExecute(Me.hwnd, \"open\", \"c:\\vbdir.bat\", \"\", \"C:\\\", 0)
End Sub

Se evt:
http://www.vbapi.com/ref/s/shellexecute.html

Du kan også prøve command.com:

Private Sub Form_Load()
  Shell \"command.com /CDIR C:\\\", vbMinimizedNoFocus
End Sub

/C angiver at der kommer en kommando, som skal køres... vbMinimizedNoFocus, kan erstattes af vbHide...