0
Dim Files As String() = Directory.GetFiles(StrTempFolderPath)
            Dim Filename As String
            Dim File_name As String = ""
            Dim File_name1 As String = ""
  For Each Filename In Files
                File_name = Filename.Substring(Filename.LastIndexOf("\"))
                File_name1 = File_name.Remove(0, 1)


                objBaseClass.FileMove(Filename, strPICKDIRpath & "\" & File_name)
                objBaseClass.Execute_Batch_file(File_name1)
              
                Windows.Forms.Application.DoEvents()


Public Function Execute_Batch_file(ByVal filename As String) As Boolean

        Dim batchExecute As New Process
        Dim batchExecuteInfo As New ProcessStartInfo(strBatchFilePath)


        Try

            batchExecuteInfo.UseShellExecute = True
            batchExecuteInfo.CreateNoWindow = False
            batchExecute.StartInfo = batchExecuteInfo

            batchExecuteInfo.Arguments = "" & filename & "   " & " 1"
            batchExecute.Start()

            batchExecute.WaitForExit(10000)

            Execute_Batch_file = True

        Catch ex As Exception

        End Try

    End Function
1
Contributor
1
Reply
3
Views
7 Years
Discussion Span
Last Post by ravindra_kolhe
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.