VBS判断传入的是文件夹还是文件
先来看看网上别人提供的代码:
'判断文件夹是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Folder) Then FolderExits=true Else FolderExits=false End IF End Function '判断文件是否存在 Function FileExits(FileName) FileName=Server.Mappath(FileName) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FileExists(FileName) Then FileExits=true Else FileExits=false End IF End Function '创建文件夹 Function CreateFolder(Folder) on error resume next Folder=Server.Mappath(Folder) Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.CreateFolder(Folder) if err>0 then err.clear CreateFolder=False else CreateFolder=True end if End function '创建文件 Function CreateFile(FileName,Content) on error resume next FileName=Server.Mappath(FileName) Set FSO = Server.CreateObject("Scripting.FileSystemObject") set fd=FSO.createtextfile(FileName,true) fd.writeline Content if err>0 then err.clear CreateFile=False else CreateFile=True end if End function '删除文件 function DeleteFile(FileName) on error resume next Set FSO = Server.CreateObject("Scripting.FileSystemObject") if FSO.FileExists(FileName) then FSO.DeleteFile FileName,true end if if err>0 then err.clear DeleteFile=False else DeleteFile=True end if end function '删除文件夹 function DeleteFolder(Folder) on error resume next Folder=server.MapPath(Folder) Set FSO = Server.CreateObject("Scripting.FileSystemObject") if FSO.FolderExists(Folder) then FSO.Deletefolder Folder,true end if if err>0 then err.clear Deletefolder=False else Deletefolder=True end if
出处:https://blog.csdn.net/ffstarff/article/details/8638173
=======================================================================================
我们自己也写一个简单的判断
'从参数获取文件或文件夹路径 Set objArgs = WScript.Arguments msgbox objArgs.count For x = 0 to objArgs.Count - 1 msgbox objArgs(x) Next s=objArgs(0) set fso=createobject("scripting.filesystemobject") msgbox s If fso.FileExists(s) Then msgbox("是文件") ElseIf fso.FolderExists(s) Then msgbox("是路径") Else msgbox("什么都不是") End If
关注我】。(●'◡'●)
如果,您希望更容易地发现我的新博客,不妨点击一下绿色通道的【因为,我的写作热情也离不开您的肯定与支持,感谢您的阅读,我是【Jack_孟】!
本文来自博客园,作者:jack_Meng,转载请注明原文链接:https://www.cnblogs.com/mq0036/p/16077633.html
【免责声明】本文来自源于网络,如涉及版权或侵权问题,请及时联系我们,我们将第一时间删除或更改!
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· DeepSeek “源神”启动!「GitHub 热点速览」
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· C# 集成 DeepSeek 模型实现 AI 私有化(本地部署与 API 调用教程)
· DeepSeek R1 简明指南:架构、训练、本地部署及硬件要求
· NetPad:一个.NET开源、跨平台的C#编辑器
2021-03-30 为你的博文自动添加侧栏导航目录
2020-03-30 WPF中的依赖属性和附加属性
2017-03-30 神秘常量!用0x077CB531计算末尾0的个数,32位数首位相连
2016-03-30 NodeJS测试实例