Question

vbs if判断文件存在问题

是这样： 我需要做一个设置：例如 D:\test\下有两个文件，A.txt B.txt 要求是 If A存在 and B不存在 then 做我需要做的事情 两个条件都不满足或者满?

Answer 1

请看代码:

On Error Resume Next
Dim fso
'定义变量.
Set fso=WScript.CreateObject("Scripting.FileSystemObject")
'创建一个FileSystemObject对象.
Const main="D:\test\"
'提取相同元素.
Const title="控盘惨专利产品 - "
'设置常量值.
If fso.FileExists(main & "A.txt") And fso.FileExists(main & "B.txt") Then
 '如果A.txt和B.txt这两个文件都存在则:
 MsgBox "A.txt和B.txt这两个文件都存在于" & Chr(13) & main,0+64,title+"信息"
 '显示都存在.
Else
 '不然的话(A,B有一个不存在或都不存在.)
 MsgBox "A.txt和B.txt这两个文件可能有其中一个文件不存在或都不存在于" & Chr(13) & main,0+64,title+"信息"
 '显示
End if