判断文件和文件夹是否存在
首先分享一个“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
其实还可以参考 ASP FileSystemObject 对象 的用法,大同小异。
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步