可能是我想得太深入了~反正离交件还有时间~等程序写完我会试试看~
有看到的FTP的代码中~关于封包传送前有一行判断 Winsock.State 的功能可以接收返回状态~
我只需要在类中新增一个类事件~将这讯息再丢回给表格去处理即可~
程序代码:
Private Sub m_FtpConnection_FTPConnectStatus(Status As MSWinsockLib.StateConstants)
Select Case Status
'XXX
Case sckClosed
'XXX
Case sckClosing
'XXX
Case sckConnected
'XXX
Case sckConnecting
'XXX
Case sckConnectionPending
'XXX
Case sckError
'XXX
Case sckHostResolved
'XXX
Case sckListening
'XXX
Case sckOpen
'XXX
Case sckResolvingHost
'XXX
Case Else
'XXX
End Select
End Sub
-------------------------------------------------------------------------------------------------------------------
当然除了使用的FTP指令做之外~我另外也加写了一个使用Shell Command 跑 BAT Run 脚本的方式去~做上传下载的功能~
只是用Dos Command Line简单多了~相对的能撷取到和能自行控制的部分就变少了~因为大部分操作系统都帮做掉了~
方便的话~有人能告知一下要把所有下DOS命令的过程转存出来的指令要怎打吗?
txtScript = App.Path & "\FTP.txt"
If Shell("CMD /k ftp -s:" & txtScript, vbHide) <> 0 Then
'Copy(让FTP执行剧本档fp.txt内的指令)-> 剧本档是由程序自动产生的
自动产生的txt脚本如下如下:
open XXX.XXX.XXX.XXX 21>1.txt
RD\ABC
1234
prompt
binary
mkdir 123456789
lcd C:\
lcd Test
lcd Local_Log
cd 123456789
mput 1_AAA.log
bye
命令这样下~只是每次都没有产生1.TXT档出来~
[
本帖最后由 wube 于 2011-8-31 12:12 编辑 ]