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