投稿日 | : 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