推 Y78:在end的前一行加上: DoEvents() 試試看? 02/25 22:21
推 fumizuki:form_load 不要加end statechanged判斷12才要求end ? 02/25 22:24
→ fumizuki:不確定可不可行 要試過才知道 02/25 22:24
: 推 Y78:改成 form1.inet1 02/24 18:54
先謝謝Y78大大的說明
小弟後來想到可以放到Form_Load中
所以改寫程式
Private Sub Form_Load()
With Inet1
.URL = "ftp://1XX.X.1XX.2XX"
.UserName = "USER"
.Password = "PWD"
.Execute , "get F1.txt D:\F1.txt
' .Execute , "CLOSE" '關閉連接。
End With
'End === > 這邊搞不定
End Sub
現在有一個問題是
如果有加end的指令在執行後會自動結束程式;但不會下載檔案
^^^^^^^ ^^^^^^^^^^^^^^^
如果有没有加end的指令在執行後不會結束程式(會秀出表單);但會下載檔案
^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
想請問的是~~~
我該如何做可以下載檔案;程式也可以自動結束?
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
或是有什麼方法去判斷檔案已下載完成?
我有試過 Private Sub Inet1_StateChanged(ByVal State As Integer)
去抓 state=12
但是卻不會跳到 stat=12 的選項?--> 在Form_Load()下
謝謝您回答
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.29.241.8