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") ThenDeleteAFile("D:\\test.tst")Else CreateAFile("D:\\test.tst")End IfFunction IsExitAFile(filespec)        Dim fso        Set fso=CreateObject("Scripting.FileSystemObject")                If fso.fileExists(filespec) Then                 IsExitAFile=True                Else IsExitAFile=False                End IfEnd Function Sub CreateAFile(filespec)        Dim fso        Set fso=CreateObject("Scripting.FileSystemObject")        fso.CreateTextFile(filespec)End SubSub DeleteAFile(filespec)        Dim fso        Set fso= CreateObject("Scripting.FileSystemObject")        fso.DeleteFile(filespec)End Sub

vbs判断目录是否存在

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

Dim fsoSet fso=CreateObject("Scripting.FileSystemObject")        If fso.folderExists("C:\\Program Files (x86)") Then                 msgbox "ok"Else         msgbox "not ok"End If

在我的64位操作系统上面，以上运行以上脚本提示为ok。

其实还可以参考 ASP FileSystemObject 对象 的用法，大同小异。