vbs学习笔记1——判断文件和文件夹是否存在
首先分享一个“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 对象 的用法,大同小异。