今までは下記のようなソースで問題なく動作をしていたのですが
おそらくXP SP2にアップデートしてから動かなくなって
しまいました。何かSP2では問題があるのでしょうか?
それともOSやインターネットオプションなどの設定で戻るので
しょうか?
ちなみにVB6.0のSP5を使用しています。
またWINDOWS2Kでは問題なく動いています。
With Inet1
.URL = Sys_FTPServer
.Password = Sys_PassWord
.UserName = Sys_ID
.Protocol = icFTP
.Execute , "CD /"
Do While .StillExecuting = True
DoEvents
Loop
.Execute , "DIR "
Do While .StillExecuting = True
DoEvents
Loop
.Execute , "GET " & FileName & " " & App.Path & "\result.txt"
Do While .StillExecuting = True
DoEvents
Loop
End With
ファイヤーウォールの設定は確認されましたか?
ABCさんレスありがとうございます。
ファイヤーウォールの設定はどこで確認をすれば良いのでしょうか?
知識が無くてすみません。
マイクロソフトのページで調べてみてください。
http://www.microsoft.com/japan/users/winXP/0409/default.aspx
WINDOWSファイヤーウォールで無効にすると今まで通りの動作を
するのですが、有効にして例外にプログラムを追加してもだめでした。
他に設定があるのでしょうか?
意図がずれてしまいまして申し訳ありません。
VBでトレースする場合:VB自身を例外として設定する
コンパイルしたexeを実行する場合:そのexeを例外として設定する
ということになりますが、その点大丈夫でしょうか?
VB自身を例外としていますし、
コンパイルしたexeも例外としています。
スコープは両方とも任意のコンピュータに設定しています。
ツイート | ![]() |