VB.NET FTP 文件上传

 Imports System.Net

 

 

    '上传文件 sServerIP=服务器IP，sServerPath=上传路径，sUser =登陆用户，sPassWord =登陆密码，sUpFilePath =本地文件路径，sUpFileName=文件名

    Public Sub UploadFile(ByVal sServerIP As String, ByVal sServerPath As String, ByVal sUser As String, ByVal sPassWord As String, ByVal sUpFilePath As String, ByVal sUpFileName As String)

        Dim client As New WebClient
        Dim ftpaddress As String

        ftpaddress = "ftp://" & sServerIP & "/" & sServerPath & "/"
        client.Credentials = New NetworkCredential(sUser, sPassWord)
        client.UploadFile(ftpaddress & sUpFileName, sUpFilePath & "/" & sUpFileName)

    End Sub