Control.com - Nerds in Control

I was looking for a snippet code that could help me type DOS commands into VB, I wrote a simple code to perform such task anyway:

   If ExecuteDOSCommand("mkdir c:\my_test_folder") Then

      MsgBox "it worked..."

   End If

   



End Sub



Function ExecuteDOSCommand(ByVal command As String) As Boolean



   On Error Resume Next



   'require microsoft scripting runtime reference



   Dim Fso     As New FileSystemObject

   Dim oText   As TextStream

   Dim BatFile As String

   

   BatFile = App.Path & "\vbcommand.bat"

   

   Fso.CreateTextFile BatFile, True

   

   Set oText = Fso.OpenTextFile(BatFile, ForWriting)

   

   oText.WriteLine command

   oText.Close

   

   Set oText = Nothing

   Set Fso = Nothing

   

   ExecuteDOSCommand = Shell("""" & BatFile & """") > 0

      

End Function