投稿日 | : 2003/12/12(Fri) 16:42 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: やっぱりフリーズします |
> On Error Resume Next
この部分はコメントにしておいて下さい。
後で log.txt を見てすべて遅れているのでしょうか?
> List1.ListIndex = 0
> List1.ListIndex = lngCount
> Filen = List1.List(List1.ListIndex)
上記は Filen = List1.List(lngCount) の方が簡単では
For lngCount = 0 To 0 や 1 でもフリーズするのでしょうか?
ログファイルの書込みの部分をコメントアウトしても同じですか?
> Inet1.Execute , "PUT " & Chr$(34) & Filen & Chr$(34) & " " & Filen1
の次にでも debug.Print Filen,Filen1 の1行を入れてパスやファイル名が
間違いないか確認してください。