Question

vbs怎样判断文件是否存在

Answer 1

通过vbs判断一个文件是否存在，这个主要是通过CreateObject("Scripting.FileSystemObject") 对象的fileExists方法来判断。

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME: File1.vbs
'
'
' COMMENT:判断是否存在一个文件，如果存在，则删除，如果不存在，则建立
'
'==========================================================================
If IsExitAFile("D:\\test.tst") Then
DeleteAFile("D:\\test.tst")
Else CreateAFile("D:\\test.tst")
End If
Function IsExitAFile(filespec)
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.fileExists(filespec) Then
IsExitAFile=True
Else IsExitAFile=False
End If
End Function
Sub CreateAFile(filespec)
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile(filespec)
End Sub
Sub DeleteAFile(filespec)
Dim fso
Set fso= CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub

vbs判断目录是否存在
有了前面的基础，我们接下来就简单了，既然CreateObject("Scripting.FileSystemObject") 对象有fileExists方法，那么有没有folderExists方法呢，我们测试一下

Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.folderExists("C:\\Program Files (x86)") Then
msgbox "ok"
Else
msgbox "not ok"
End If
复制代码
在我的64位操作系统上面，以上运行以上脚本提示为ok。