VB .Net 利用FTP.exe上传文件至FTP服务器

Public Class Form1 Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click Dim psi As New System.Diagnostics.ProcessStartInfo Dim ftpFileName As String psi.FileName = "ftp.exe" psi.RedirectStandardInput = False psi.RedirectStandardOutput = True psi.UseShellExecute = False ftpFileName = "E:/ftp.txt" psi.Arguments = "-s:" & ftpFileName Dim proc As Process proc = Process.Start(psi) 'Wait process proc.WaitForExit() Console.WriteLine(proc.StandardOutput) Console.ReadLine() End Sub End Class

 

ftp.txt中的内容：

open 192.168.1.110

 

user dumeifang dumeifang
put E:/ip.html
quit

 

控制台中的输出：

ftp> open 192.168.1.110
Connected to 192.168.1.110.
220 Serv-U FTP Server v8.2 ready...
User (192.168.1.110:(none)):
530 Invalid user name.
Login failed.
ftp> user dumeifang dumeifang
331 User name okay, need password.
230 User logged in, proceed.
ftp> put E:/ip.html
200 PORT Command successful.
150 Opening ASCII mode data connection for ip.html.
226 Transfer complete. 1,672 bytes transferred. 1.63 KB/sec.
ftp: 发送 1672 字节，用时 0.00Seconds 1672000.00Kbytes/sec.
ftp> quit
221 Goodbye, closing session.

 

 

ftp -s:filename是把一些ftp的命令写入filename中，FTP自动运行里面的内容