投稿日 | : 2003/12/12(Fri) 13:52 |
投稿者 | : のっこ |
Eメール | : |
URL | : |
タイトル | : フリーズになります |
> '転送が終了するまで待機
> Do While .StillExecuting = True
> DoEvents
> Loop
>
> のように転送後も待機して見て下さい。
> もちろん、ディレクトリの変更後にも必要です。
下のコードでもフリーズします。
Inet1.URL = "ftp://" & TensouS
Inet1.UserName = TensouA
Inet1.Password = TensouP
Form1.Caption = Filen1 & "を転送中"
Inet1.Execute , "CD " & TensouT ' ディレクトリの変更
Do While Inet1.StillExecuting = True
DoEvents
Loop
Inet1.Execute , "PUT " & Chr$(34) & Filen & Chr$(34) & " " & Filen1
Do While Inet1.StillExecuting = True
DoEvents
Loop
いい方法はありませんか?
これがなければ使えるレベルなのに・・・。