vb怎么实现电脑里的文件上传到URL数据服务器？

Private Sub UpFile(ByVal Sf As String)
Inet1.RemoteHost = "00.00.148.147"'网盘空间服务器地址
Inet1.UserName = "12345"'账户
Inet1.Password = "67890"’密码
Inet1.Protocol = icFTP
Inet1.RemotePort = 21
Dim S(1) As String
S(0) = Sf
S(1) = Right(S(0), Len(S(0)) - InStrRev(S(0), "\"))
Inet1.Execute "", "PUT " & S(0) & " " & S(1)
Dim ri As Boolean
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
MsgBox "上传完毕"
End Sub


Private Sub Command1_Click()
UpFile "c:\K.txt"
End Sub

'窗体需要添加:"一个按钮 一个Inet1控件