就是吧本机硬盘文件，上传到url（http://..........）数据服务器里面，麻烦问下如何实现，谢谢！我的QQ号2209519800

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控件

学习了！本人到这一步恐怕尚需数年