VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/08/09(Thu) 14:03
投稿者： 魔界の仮面弁士
Ｅメール：
ＵＲＬ：
タイトル： Re^4: 条件文で悩んでいます。

If 文を何度もネストさせると、可読性は落ちてしまいますね。

> ファイルの存在確認に特化せずFor文やDo〜Loop文、If文等の組み合わせで
> 出来ないでしょうか？

できると思いますよ。内容によって細かい書き方は異なりますが、
配列やコレクションに入れておいて、ループで回すだけという点では一緒かと。


あと、最初の例であれば、『必要なファイルが揃った』ことを調査したいだけなので、
一個でも揃っていなければ、途中で調査を打ち切れることができるはずです。

'-------
　Dim notFound As Boolean
　notFound = False
　For r = 0 To TargetFileCapacity
　　If Dir(TargetFilePath(r), attr) = "" Then
　　　notFound = True
　　　Exit For  'ファイルが存在していなければ調査を打ち切る
　　End If
　Next
　If notFound Then
　　MsgBox "揃ってなかった"
　Else
　　MsgBox "必要なファイルが揃っていた"
　End If
'-------

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -