VB6.0 怎么把文件复制（上传）到远程的路径下，上传完成后 删除上传的文件 感谢各位大神

Option Explicit

Private Sub Command1_Click()

On Error GoTo RequestOut

Dim filename, putfile As String

With Inet1

.URL = "FTP地址"

.UserName = "用户名"

.Password = "密码"

.Execute , "CLOSE" '关闭连接。

End With

'以下是单文件上传

'（把D:\下的1.txt文件上传到XXXX的receive目录下）

Inet1.Execute , "send d:\1.txt /receive/1.txt" 'send 换为 put 一样，一个意思

Do While Inet1.StillExecuting

'

DoEvents

Loop

MsgBox "数据传输成功！"

Inet1.Execute , "QUIT" '关闭连接，退出FTP连接慎激

Exit Sub

RequestOut:

MsgBox "没有可用的有效连接！Time Out!", vbInformation, "提示"

Inet1.Execute , "QUIT"

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

'状态提示

Dim temp As String

Select Case State

Case icNone

Case icResolvingHost

temp = "正在查找"

Case icHostResolved

temp = "已找到IP地址"

Case icConnecting

temp = "正在连接。。。。"

Case icConnected

temp = "连接成功"

Case icRequesting

temp = "正在发送请求。。。。"

Case icRequestSent

temp = "发送请求成功宽带袜"

Case icReceivingResponse

temp = "正在接受 主机行首的响应"

Case icResponseReceived

temp = "已经接受主机的响应"

Case icDisconnecting

temp = "正在解除与主机的连接。。。"

Case icDisconnected

temp = "已解除与主机的连接。"

Case icError

temp = Inet1.ResponseCode &Inet1.ResponseInfo

Case icResponseCompleted

temp = "数据传输完毕！"

End Select

Label1.Caption = temp

End Sub

程序无响应。。。从这段代码看表示它一直在执行循环嘛，VB不同于C语言之类的，给出这点代码看不出什么。下面这段代码你试试：

Inet1.URL

=

"ftp://***.***.***.***:***/"

'ftp地址

Inet1.Protocol

=

2

Inet1.UserName

=

"用户名"

Inet1.Password

=

"密码"埋宽答

Dim

filstr

As

String

'存放路径和文件名

filstr

=

"文件路径弯慧"

&

"文巧燃件名"

Inet1.Execute

,

"PUT

"

&

filstr

&

"

"

&

文件名

Do

While

Inet1.StillExecuting

DoEvents

Loop

Inet1.Execute

,

"close"

Do

While

Inet1.StillExecuting

DoEvents

Loop

---