vbs学习笔记1——判断文件和文件夹是否存在-阿里云开发者社区

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

2017-12-12 2636

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介：

首先分享一个“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