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
用户登录
还没有账号?立即注册
用户注册
投稿取消
| 文章分类: |
|
还能输入300字
上传中....
唔乃长衫造纸农