การส่งของมูลขึ้นไปบน FTP Server อยากได้ Code ตัวอย่างการส่งไฟล์ขึ้นไปบน FTP Server อะครับ

  Dim ServerName As String = "ftp.avchemical.com" ' ชือ server หรือ ip address

        Dim UserName As String = "dmh6161450" ' ชื่อ user ที่สามารถ ftp ได้

        Dim UserPwd As String = "REg8fUlU" ' password ของ ftp user

        Dim UploadFile1 As String = "C:\Test BackUp\ConsumerDB.bak" ' ชื่อแฟ้ม#1 บน client ที่จะ upload

        Dim ServerFile1 As String = "/Test/Consumer.bak" ' ชื่อ target บน server สำหรับแฟ้ม#1

        ' STEP 1 - สร้างแฟ้ม ftp command file

        Dim FTPfile As String = "c:\Test BackUp\ftpcmd.txt" ' file สำหรับเก็บคำสั่ง ftp

        Dim sb1 As New System.Text.StringBuilder

        sb1.Append(ServerName & vbCrLf)

        sb1.Append(UserName & vbCrLf) ' กำหนดขื่อ สำหรับ login

        sb1.Append(UserPwd & vbCrLf) ' กำหนด password สำหรับ login

        sb1.Append("put " & UploadFile1 & " " & ServerFile1 & vbCrLf) ' คำสั่งในการ upload file1

        sb1.Append("bye" & vbCrLf) ' คำสั่งให้ออกจาก ftp command

        Dim fs1 As System.IO.StreamWriter

        fs1 = New System.IO.StreamWriter(FTPfile)

        fs1.Write(sb1.ToString) ' สร้างแฟ้ม ftp command

        fs1.Close()

        ' STEP 2 - สร้าง batch file

        Dim BATCHfile As String = "c:\temp\ftpbatch.bat" ' batch file สำหรับการ shell

        Dim OutputFile As String = "c:\temp\ftpoutput.txt" ' output file เพื่อเก็บผลการทำงาน

        Dim sb2 As New System.Text.StringBuilder

        sb2.Append("ftp -s:" & FTPfile & " " & ServerName & " > " & OutputFile & vbCrLf) ' คำสั่ง ftp และ redirect output ไปเก็บไว้

        sb2.Append("type NUL > " & FTPfile & vbCrLf) ' ล้าง ftp command file เพื่อลบ user/pwd

        sb2.Append("del " & FTPfile & vbCrLf) ' ลบ ftp command file

        Dim fs2 As System.IO.StreamWriter

        fs2 = New System.IO.StreamWriter(BATCHfile)

        fs2.Write(sb2.ToString)

        fs2.Close()

        ' STEP 3-sheel ออกมา เพื่อ run batch ในการทำ ftp

        Dim ProcID As Integer

        ProcID = Shell(BATCHfile, AppWinStyle.NormalFocus) ' sheel ออกมา run ftp batch

       ' ***** เป็น Code ตัวอย่างที่คุณ Nor เขียนไว *****'