Public Sub MvDist2Receipt(ByVal tmppathnum As Integer)
        Dim srHandler As New System.IO.StreamReader(( _
          My.Settings.Path_Log_Files) + "Dir_TMP_e.TXT")
        Do While srHandler.Peek > 1
            Dim FileLine As String = srHandler.ReadLine.ToString
            Dim myArray1 As Array = Split(FileLine, ".")
 
            Dim FileContent As String = System.IO.File.ReadAllText(( _
              My.Settings.Export_Dist_Path) + FileLine)
            System.IO.File.AppendAllText(((My.Settings( _
            "Export_File_Receipt_Path" & tmppathnum.ToString())) + myArray1(0)) _
            + ".TXT", FileContent, System.Text.Encoding.Default)
 
        Loop
        srHandler.Close()
    End Sub