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

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

No.2 ベストアンサー 回答者： togino 回答日時： 2004/08/26 09:29

> ４つくらいのファイルがすべて存在すれば

> あるメッセージを表示する。

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

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でうまくつなげなくって・・初心者ですいません、、、

補足日時：2004/08/26 09:38

No.1 回答者： kakusuke 回答日時： 2004/08/26 02:49

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つかったことなくてよくわからなくて・・・お願いします。

補足日時：2004/08/26 09:39