I am trying to transfer pdf files through FTP but as soon as the pdf files get tranfered they get damage..Is there another way to tranfer ?

Dim myStreamWriter As StreamWriter = Nothing
Dim lngWnd As Long = Nothing
Dim strTxtfile As String = Nothing
Dim output2 As String

''''''''''''''''''''''''''''''''''''''''''' looping and Transferring
Dim varSourceAddress As String = "C:\Notification_Pdf"
Dim diaddr As New DirectoryInfo(varSourceAddress)
Dim fiaddr As FileInfo() = diaddr.GetFiles()

While diaddr.GetFiles.Length > 0
    For Each scannedFile As FileInfo In fiaddr
        If scannedFile.Name.Contains("Thumbs") = False Then
            If scannedFile.Exists Then
                output2 = scannedFile.Name
                'output2 = scannedFile.Name.Replace(".docx", ".pdf")

                myStreamWriter = File.CreateText("C:\pdf\Notifications.txt")
                With myStreamWriter
                    .WriteLine("open 196.35.157.148")
                    .WriteLine("securemailftp")
                    .WriteLine("secretmailptf")
                    .WriteLine("lcd C:\Notification_Pdf")
                    .WriteLine("get" & " " & output2)
                    .WriteLine("put" & " " & output2)
                    .WriteLine("byee")
                    .WriteLine("close")
                    .Flush()
                    myStreamWriter.Close()
                End With
                strTxtfile = "C:\pdf\Notifications.txt"
                lngWnd = Shell("ftp -s:" & strTxtfile, vbMinimizedFocus)
                'scannedFile.CopyTo("C:\Notificationss\Archive\" & output2, True)
            End If
        End If
    Next scannedFile
End While
Me.Label1.Text = "Files Transferred"