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

发布时间：2020-12-16 23:22:53 所属栏目：大数据来源：网络整理

导读：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.Redir

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自动运行里面的内容

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!