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

投稿日: 2007/08/09(Thu) 11:29
投稿者yama
Eメール
URL
タイトル条件文で悩んでいます。

皆様には大したことがないかも知れないですが、
昨々晩からず〜っと考えてても答えがでません。
ズバッとお答え頂きたく投稿させていただきました。

※やりたいこと
・数個のファイルの存在が全て確認できればある処理をしたいのですが
  ファイル数が毎回決まっていれば下記の様なものでもいいと思うのですが
 毎回ファイルの数が変わるので今回困っています。
 バカな私にはわかりません。どうかお助けください。
  
TargetFileCapacity:ファイルの数(数は不定)
TargetFilePath:ファイルの格納Path
TargetFileOK:ファイルの有無を判断する変数

For r = 0 To TargetFileCapacity
 RealTargetFileName(r) = Dir(TargetFilePath(r))
  If Len(RealTargetFileName(r)) > 1 Then
  TargetFileOK(r) = True

   If TargetFileOK(r) = True Then
    If TargetFileOK(r + 1) = True Then
     If TargetFileOK(r + 2) = True Then
          …
        MsgBox "必要なファイルが揃いました。", vbOKOnly, "ファイルが揃いました"
          …
     End If
        End If
      End If
    End If
Next


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

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