vbs脚本：ExplorerSel

最新推荐文章于 2014-01-13 15:45:17 发布

bj_wellcome

最新推荐文章于 2014-01-13 15:45:17 发布

阅读量444

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VB &amp; VBS 文章标签：脚本 path 浏览器

本文链接：https://blog.youkuaiyun.com/bj_wellcome/article/details/5799953

VB & VBS 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一段VBA代码，用于在Windows资源管理器中打开特定路径的文件或文件夹，并将其选中。该代码适用于需要自动化文件管理任务的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Rem :  ===========  打开浏览器，选中指定文件或文件夹
Rem :  ===========  文件或文件夹必须存在
Sub ExplorerSel(path)
	Dim f
	f = Trim( path )
	If Right(f,1) = "/" Then f = Left(f,Len(f) -1 )
	If fso.fileexists(f) = False And fso.folderexists(f) = False Then Err.Raise vbObjectError+128, "ExplorerSel", f & " does not exists"

    
	Dim errMsg
	On Error Resume Next
	Rem  ======  code begin
	shell.Run "explorer.exe /select," & Chr(34) & f & Chr(34),1,TRUE
	Rem  ======  code end
	If Err.Number <> 0 Then
		errMsg = Err.Description
		On Error Goto 0
		Err.Raise vbObjectError+128, "ExplorerSel", errMsg & vbNewLine & _
								"                path:" & vbTab & path
		Exit Sub
	End If

End Sub