ถามเรื่องการอัพไฟล์ขึ้น ftpโดยตรง อัพขขึ้นโดยตรง โดยไม่ต้องผ่าน path ค่ะ จะต้องเปลี่ยน เงื่อนไขยังไง

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(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-shell ออกมา เพื่อ run batch ในการทำ ftp

      
Dim ProcID As Integer

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

    

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