开发者社区> 嗯哼9925> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

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 对象 的用法,大同小异。

 

 本文转自xwdreamer博客园博客,原文链接:http://www.cnblogs.com/xwdreamer/p/3509701.html,如需转载请自行联系原作者

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

相关文章
VBS 选择文件夹框
VBS 选择文件夹框     1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 on error resume Next Con...
453 0
vue学习笔记1-基本知识
1.npm 安装node.js的时候会一起安装npm包管理器,能够解决nodejs代码部署问题,常见使用如下: 允许用户从npm服务器下载别人编写的第三方包到本地应用允许用户从npm服务器下载并安装别人编写的命令行程序到本地使用允许将自己编写的包或命令上传到npm服务器上供别人使用 新版的nodejs已经集成npm,安装好nodejs之后使用npm -v命令检查是否安装成功。
633 0
JDBC 简介|学习笔记
快速学习 JDBC 简介
0 0
判断表是否存在_旧 API|学习笔记
快速学习 判断表是否存在_旧 API
0 0
+关注
文章
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载