Calling any Exe or Bat file by VB6.0

[Shashank Bhardwaj]

Hello Friends!

Can you help me for calling a exe or bat file by the code of vb6.0?

Thanks.

[VACEPROGRAMER]

I think Run("C:\ . .. . ") or Start("C:\........") will help. In this moment I work on vb 2003 and vb 2005 so I need to see the code in vb6.0. I will send you the code, don't wary

VxE

[VACEPROGRAMER]

Or maybe Open("C:\ . .. . .). never mynd , i need to see it . . .

VxE

[gobblegob]

Try this

   Dim BatFile As String
   BatFile = "c:\first.bat"  
   ExecuteDOSCommand = Shell("""" & BatFile & """") > 0

Gobble.

[lotus18]

Try this:

Shell App.Path & "\sample.exe", vbMaximizedFocus

[lotus18]

Or :

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
 
Call ShellExecute(Me.hwnd, vbNullString, App.Path & "\Sample.exe", vbNullString, vbNullString, 2)

[VACEPROGRAMER]

Dim Q as String
Dim Path as String
DIm FullPath as String

Q =""""
Path = "C:\vace.bat"
FullPath = Q & Path & Q

Shell(FullPath)

VxE

[blueC]

    Private Sub Button2_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
        Dim psi As New _
            System.Diagnostics.ProcessStartInfo("C:\listfiles.bat")
        psi.RedirectStandardOutput = True
        psi.WindowStyle = ProcessWindowStyle.Hidden
        psi.UseShellExecute = False
        Dim listFiles As System.Diagnostics.Process
        listFiles = System.Diagnostics.Process.Start(psi)
        Dim myOutput As System.IO.StreamReader _
            = listFiles.StandardOutput
        listFiles.WaitForExit(2000)
 
        If listFiles.HasExited Then
            Dim output As String = myOutput.ReadToEnd
            Debug.WriteLine(output)
        End If
    End Sub