VBS打开当前脚本所在文件夹
更新时间：2019年12月08日 14:14:37 作者：一株禾
有时候我们需要获取当前vbs脚本所在的文件夹，或者运行当前脚本文件夹中的文件那么就需要参考下面的代码了
方法一：Wscript.ScriptFullName
'创建一个 Wscript.Shell 对象的实例,稍后会使用这个对象启动 Windows 资源管理器
Set objShell = CreateObject("Wscript.Shell")
'获取脚本的路径
strPath = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
'获取脚本当前所在文件夹的路径
strFolder = objFSO.GetParentFolderName(objFile)
strPath = "explorer.exe /e," & strFolder
'启动 Windows 资源管理器,打开脚本所在的文件夹
objShell.Run strPath
方法二：objShell.CurrentDirectory
这种方法代码少了一些
set objShell = CreateObject("Wscript.Shell")
'脚本的当前目录
strPath = objShell.CurrentDirectory
strPath = "explorer.exe /e," & strPath
objShell.Run strPath
下面是脚本之家小编的补充
如果是脚本中需要调用下面很简单的一句话就可以获取当前目录
currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
或
currentpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
是不是更简单呢，这篇文章就分享到这了，希望大家以后多多支持脚本之家。
相关文章
写了这么多VBS，从来都没有使用过SetLocale函数，似乎也没有见过谁的代码使用过，这个SetLocale函数到底有什么用呢2013-05-05
VBS教程：VBScript 语句-Select Case 语句
Select Case 语句可以是嵌套的，每一层嵌套的 Select Case 语句必须有与之匹配的 End Select 语句2006-11-11
非常具有破坏性，所以如果自己有服务器的，一定要把shell.application组件禁掉2008-06-06
VBS教程：函数-GetRef 函数...2006-11-11
用vbs实现显示系统调色板的代码...2007-10-10
VBscript教程 第五课 VBScript常数...2006-11-11
一直以来都是手工启用Web服务扩展，没想到微软发布的Iisext.vbs也有这个功能，这里脚本之家小编就为大家介绍下2014-07-07
allfiles.vbs 显示子目录下的所有文件的修改时间、大小、文件名、扩展名等
这篇文章主要介绍了allfiles.vbs之显示子目录下的所有文件的修改时间、大小、全限定名定名等信息,需要的朋友可以参考下2020-08-08
VBS教程：方法-GetBaseName 方法...2006-11-11
VBS教程：VBscript语句-Property Get 语句
VBS教程：VBscript语句-Property Get 语句...2006-11-11
最新评论