vbs学习笔记1——判断文件和文件夹是否存在

首先分享一个“​​VBS脚本常用经典代码收集​​”，这里面关于vbs很丰富的内容。

所有vbs脚本都需要保存为.vbs形式才可以运行

FileSystemObject Object的所有方法参考：​http://msdn.microsoft.com/en-us/library/aa262402(v=vs.60).aspx">​http://msdn.microsoft.com/en-us/library/aa262402(v=vs.60).aspx​​

vbs判断文件是否存在

参考文献：​http://bbs.51js.com/thread-72582-1-1.html">​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

欢迎任何形式的转载，但请务必注明出处。

分享到：