清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Private Sub FtpUpLoad(ByVal Str_Path As String, ByVal Str_Filename As String,
       ByVal Str_Username As String, ByVal Str_Password As String)
       Try
            Dim client As New Net.WebClient
            client.Credentials = New Net.NetworkCredential(Str_Username, Str_Password)
            client.UploadFile(Str_Path, Str_Filename)
        Catch ex As Exception
             MsgBox(ex.ToString)
        End Try
    End Sub