VBでftpの送信プログラムを作っているのですが・・・

質問

今、エラーの処理をしているのですが、拡張子が「ok」のものを探すため、.Execute "DIR *.ok"を宣言しました。

ファイルがあるときはもちろん正常に動くのですが、万が一ファイルがない場合に宣言を走らせてしまったときの
エラーの対処を考えています。
ファイルがない場合は何かエラーがでるのでしょうか？
私が調べるかぎりではわかりません・・・。
実行時エラーは避けたいとでわかるかた、よろしくお願いします。

回答No.3

tsukasa-12r

＞Inetコントロールのメソッドです。
あぁ、なるほど。理解できました。
"*.ok" が存在しなくても、.Execute 実行時に実行時エラーは発生しないようですね。
VB のヘルプによると、DIR コマンドに関して、
＞この一覧データを取得するには、GetChunk メソッドを使用します。
と書かれているので、GetChunk を使用すれば、"*.ok" が存在するかしないかわかると思います。

お礼

ありがとうございます！
やはりエラーは出ないんですね・・・。
ただ、エラーがでなくても返答にすごく時間がかかるので、実際プログラムが動いているかどうか
不安になると思うんです。
Inetコントロールに「RequestTimeout」というのがありました。
これで、タイムアウトの時間を設定して早く返答が帰ってくるようにしようと思っています。

回答No.2

tsukasa-12r

＞.Execute "DIR *.ok"

.Execute って何のオブジェクトのメソッドでしすか？
何にしろ、.Execute は "DIR *.ok" が実行できたかどうかは返すかもしれませんが、"DIR .ok" の結果までは返さないように思います。
VB に DIR 関数があるので、
If Dir("*.ok") <> "" Then
'ファイルが存在する場合
...
Else
'ファイルが存在しない場合
...
End If
のようにされるといいんじゃないでしょうか。

補足

>.Execute って何のオブジェクトのメソッドでしすか？
Inetコントロールのメソッドです。
FTPでファイルを送信するので、Inetを使用しています。

回答No.1

Traja

>拡張子が「ok」のものを探すため、.Execute "DIR *.ok"を宣言しました

これが妥当かどうかは、別として。

>ファイルがない場合は何かエラーがでるのでしょうか？
実行してみれば、どのようなエラーが発生するか確認出来ませんか？(調べて分からなければ)

>実行時エラーは避けたいとでわかるかた？
実行時エラーを避ける。
On Error　文はご存じですか？

そう言う意味ではないのかな？

補足

お返事ありがとうございます。
実行してみたのですが、エラーがでないのです。
実行している時間はすごくかかるのですが、知らない間に終了しているという感じです。

>実行時エラーは避けたいとでわかるかた？
すみません・・・
実行時エラーは避けたいのでわかるかた　　　でした・・・。
On　Errorはしているのですが、どうもエラーが返ってきません・・・。