首先分享一个“VBS脚本常用经典代码收集”，这里面关于vbs很丰富的内容。
所有vbs脚本都需要保存为.vbs形式才可以运行
FileSystemObject Object的所有方法参考：http://msdn.microsoft.com/en-us/library/aa262402(v=vs.60).aspx
参考文献：http://bbs.51js.com/thread-72582-1-1.html
这个是我们经常碰到的需求，通过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
有了前面的基础，我们接下来就简单了，既然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
其实还可以参考 ASP FileSystemObject 对象 的用法，大同小异。
出处：http://www.cnblogs.com/xwdreamer
原文：https://www.cnblogs.com/lnd-blog/p/12445464.html