首先分享一个“VBS脚本常用经典代码收集”，这里面关于vbs很丰富的内容。
所有vbs脚本都需要保存为.vbs形式才可以运行
FileSystemObject Object的所有方法参考：http://msdn.microsoft.com/en-us/library/aa262402(v=vs.60).aspx
vbs判断文件是否存在
参考文献：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
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。
其实还可以参考 ASP FileSystemObject 对象 的用法，大同小异。
本文转自xwdreamer博客园博客，原文链接：http://www.cnblogs.com/xwdreamer/p/3509701.html，如需转载请自行联系原作者
