投稿日 | : 2003/12/12(Fri) 12:13 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^5: アップロードされません。 |
> Inet1.Execute , "PUT " & Chr$(34) & File & Chr$(34) & " " & File1
ありがとうございます。私が試した時フォルダにファイルを移しておくのを
忘れていて試していたようでした。
> させてませんがディレクトリの変更後に
>
> Do While Inet1.StillExecuting
> DoEvents ' 前の処理が終わるまで待機
> Loop
>
> 入れてから転送しています。
>
> これを抜くと勝手に転送します。
ファイルサイズが小さいと大丈夫だと思いますが、ファイルサイズが大きいと
完全に送ってしまうまでにプロシージャが終了してしまいます。
そのためにフリーズ状態になります。
.Execute , "put c:\test.txt test.txt"
'転送が終了するまで待機
Do While .StillExecuting = True
DoEvents
Loop
のように転送後も待機して見て下さい。
もちろん、ディレクトリの変更後にも必要です。