質問です。

ホームページをアップするのに、
どこかの本を参考に下記のコードでやってますが、非常に遅いです。
いくつものファイルを転送するとかなりの時間がかかります。

ＦＴＰソフトで転送するととても早いのですが、
何か技があるのでしょうか？

.　With objInet
.　　.URL = "ftp://*********"
.　　.UserName = "******"
.　　.Password = "******"
.
.　　.Execute , "CD ********"
.　　Do While .StillExecuting = True
.　　　　DoEvents
.　　Loop
.
.　　.Execute , "PUT index.html index.html"
.　　Do While .StillExecuting = True
.　　　　DoEvents
.　　Loop
.　End With