特に問題ないと思うのですが>Inet1.Execute , "QUIT"小文字で quit にしてみたらどうでしょうか?ftpサーバーによっては大文字のコマンドはエラーになりますのであるいは quit の後のループは不必要かもしれませんので削除してみてはどうでしょうか?