方法一：Wscript.ScriptFullName

1. '创建一个 Wscript.Shell 对象的实例,稍后会使用这个对象启动 Windows 资源管理器
   
2. Set objShell = CreateObject("Wscript.Shell")
   
3. '获取脚本的路径
   
4. strPath = Wscript.ScriptFullName
   
5. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
6. Set objFile = objFSO.GetFile(strPath)
   
7. '获取脚本当前所在文件夹的路径
   
8. strFolder = objFSO.GetParentFolderName(objFile)
   
9. strPath = "explorer.exe /e," & strFolder
   
10. '启动 Windows 资源管理器,打开脚本所在的文件夹
    
11. objShell.Run strPath

复制代码

方法二：objShell.CurrentDirectory
这种方法代码少了一些

1. set objShell = CreateObject("Wscript.Shell")
   
2. '脚本的当前目录
   
3. strPath = objShell.CurrentDirectory
   
4. strPath = "explorer.exe /e," & strPath
   
5. objShell.Run strPath

复制代码

下面是脚本之家小编的补充
如果是脚本中需要调用下面很简单的一句话就可以获取当前目录

1. currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path

复制代码

或

1. currentpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

复制代码

是不是更简单呢，这篇文章就分享到这了，希望大家以后多多支持脚本之家。

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！