在vb里如何上传数据？

Question

用Inet1控件
Private Sub Command1_Click()
With Inet1
.URL = "ftp://192.168.0.244/"
.UserName = "Administrator"
.Password = "123"
.Execute , "PUT c:\aaa.exe demo\aaa.exe" '返回该目录。
End With
End SubPrivate Sub Command2_Click()
With Inet1
.URL = "ftp://192.168.0.244/"
.UserName = "Administrator"
.Password = "123"
.Execute , "GET c:\bbb.exe demo\aaa.exe" '返回该目录。
End With
End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 12
Label1.Caption = "所有数据均已接收到"
Inet1.Cancel
Case 11
Label1.Caption = "与主机通讯时出现了故障"
Inet1.Cancel
Case 10
Label1.Caption = "已成功地与主机解除了连接"
Case 9
Label1.Caption = "正在解除与主机的连接..."
Case 8
Label1.Caption = "正在接收数据..."
Case 7
Label1.Caption = "正在接收主机的响应..."
Case 6
Label1.Caption = "发送请求已成功"
Case 5
Label1.Caption = "正在向主机发送请求..."
Case 4
Label1.Caption = "与主机连接成功"
Case 3
Label1.Caption = "正在与主机连接..."
Case 2
Label1.Caption = "已成功地找到所指定的主机的IP地址"
Case 1
Label1.Caption = "正在查询所指定的主机的IP地址..."
Case 0
Label1.Caption = "无状态"
End Select
End Sub

Answer 1

在以前的《巴顿专贴》中有一个标准FTP类源码
可以实现FTP上传。
如需要你可以查一下。