vbsにてファイルが存在すればメッセージを表示する。というプログラムを作成したいです。

質問

vbsにてファイルが存在すればメッセージを表示する。というプログラムを作成したいのですが
普通にexistsを使ってプログラムを作ったのですが
たとえばif文このファイルがあれば～
という分岐の次にまたこのファイルがあれば～という分岐をして４つくらいのファイルがすべて存在すればあるメッセージを表示する。というプログラムを作成したいのですが・・・つまりelseと逆にtrueなら次の分岐・・・という風に作成したいのです。どうかよろしくお願いします。

回答No.2

togino · ベストアンサー

> ４つくらいのファイルがすべて存在すれば
> あるメッセージを表示する。

これだけですと・・・文字通り

If objFS.FileExists("aaa.txt") = True AND
　 objFS.FileExists("bbb.txt") = True AND
　 objFS.FileExists("ccc.txt") = True AND
　 objFS.FileExists("ddd.txt") = True Then

　 MsgBox "４つのファイルが存在します"

End If

となりますが、こういうことではないのでしょうか？

補足

そういうことなのですがandでうまくつなげなくって・・初心者ですいません、、、

回答No.1

kakusuke

functionで
条件がfalseだったらexitすればいいのでは？

Function XXX() As Boolean
XXX = False

If objFS.FileExists("aaa.txt") = False Then
Exit Function
End If

If objFS.FileExists("bbb.txt") = False Then
Exit Function
End If

If objFS.FileExists("ccc.txt") = False Then
Exit Function
End If

If objFS.FileExists("ddd.txt") = False Then
Exit Function
End If

XXX = True
End Function

補足

×××にはなにがはいるんでしょうか？fanctionつかったことなくてよくわからなくて・・・お願いします。