ole_1.object.Protocol = 2 //2表示FTP
ole_1.object.Remotehost = "192.168.1.1" //FTP的IP地址
ole_1.object.Username = "username" //用户名
ole_1.object.Password = "pass" //密码
Ole_1.object.execute("","put c:\11.doc \11.doc") //PUT是上传命令
IF state = 12 THEN
ls_string = Ole_1.object.GetChunk(512,0)
Messagebox("state",string(state)+"上传成功 "+ls_string )
icNone 0 No state to report.
icHostResolvingHost 1 The control is looking up the IP address of the specified host computer.
icHostResolved 2 The control successfully found the IP address of the specified host computer.
icConnecting 3 The control is connecting to the host computer.
icConnected 4 The control successfully connected to the host computer.
icRequesting 5 The control is sending a request to the host computer.
icRequestSent 6 The control successfully sent the request.
icReceivingResponse 7 The control is receiving a response from the host computer.
icResponseReceived 8 The control successfully received a response from the host computer.
icDisconnecting 9 The control is disconnecting from the host computer.
icDisconnected 10 The control successfully disconnected from the host computer.
icError 11 An error occurred in communicating with the host computer.
icResponseCompleted 12 The request has completed and all data has been received.
现在上传成功的话，处理icResponseCompleted （12） 是可以的；