Private Sub CreatePartitions() 'txtResults.Clear() ' If Me.InvokeRequired Then 'Me.Invoke(New DelegateCreatePartitions(AddressOf CreatePartitions)) 'Else Dim tmp As String Dim myprocess1 As New Process Dim StartInfo As New System.Diagnostics.ProcessStartInfo 'StartInfo.FileName = sSystem32 & "\diskpart.exe" StartInfo.FileName = sSystem32 & "\cmd.exe" ' StartInfo.Arguments = sBootLetter & "\diskpart.exe /s createpartitions.txt" ' StartInfo.CreateNoWindow = True StartInfo.RedirectStandardInput = True 'StartInfo.RedirectStandardOutput = True StartInfo.UseShellExecute = False myprocess1.StartInfo = StartInfo myprocess1.Start() 'myprocess1.WaitForExit() 'Dim SR As System.IO.StreamReader = myprocess1.StandardOutput Dim SW As System.IO.StreamWriter = myprocess1.StandardInput SW.WriteLine(sBootLetter) SW.WriteLine("diskpart /s createpartitions.txt") 'Do While myprocess1.HasExited = False ' tmp = SR.ReadLine & vbCrLf ' If tmp <> "" Then ' Me.txtResults.AppendText(tmp) ' End If ' Loop lblUpdateStatus.Text = "Partitions Created" SW.Close() ' SR.Close() 'End If End Sub
CMD /C yourCommandLine
CMD /C E:\diskpart.exe /s createpartitions.txt
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)