| 投稿日 | ： 2003/05/06(Tue) 15:55 |
| 投稿者 | ： emi |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： インターネットトランスファーコントロールを使ったアップロードについて |
また質問をさせてください。
ＶＢのインターネットトランスファーコントロールを使って
ファイルをアップロードするコードを組んだのですが
サーバーにhtmlファイルをアップロードした後、プログラム（フォーム）を閉じようとすると
ＶＢからの応答がなく固まってしまいます。
アップロードは完了していて、ブラウザで確認することができました。
コードの間違い、同じような現象が出た方、対処法をご存じの方がいらっしゃいましたら
教えていただけないでしょうか？
環境環境は
OS：WIN2000
VB：VB6SP5
です。
下記がそのコードになっています。
よろしくお願いします。
---------
Private Sub cmdup_Click()
Inet1.URL = "ftp://ftp.xxxx.co.jp"
Inet1.UserName = "emi"
Inet1.Password = "xxxx"
Inet1.Protocol = icFTP
Inet1.Execute , "put c:\test.html test.html"
Do While Inet1.StillExecuting
DoEvents
Loop
Inet1.Execute , "QUIT"
Do While Inet1.StillExecuting
DoEvents
Loop
MsgBox ("アップロード終了しました。")
End Sub
---------