vbs脚本:ExplorerSel
2010年08月09日
Rem : =========== 打开浏览器,选中指定文件或文件夹 Rem : =========== 文件或文件夹必须存在 Sub ExplorerSel(path) Dim f f = Trim( path ) IfRight(f,1) = "\" Then f = Left(f,Len(f) -1 )If fso.fileexists(f) = False And fso.folderexists(f) = False ThenErr.Raise vbObjectError+128, "ExplorerSel", f & " does not exists" Dim errMsg OnError Resume NextRem ====== code begin shell.Run "explorer.exe /select," & Chr(34) & f & Chr(34),1,TRUE Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "ExplorerSel", errMsg & vbNewLine & _ " path:" & vbTab & path ExitSubEndIfEndSub
2010年08月09日
Rem : =========== 打开浏览器,选中指定文件或文件夹 Rem : =========== 文件或文件夹必须存在 Sub ExplorerSel(path) Dim f f = Trim( path ) IfRight(f,1) = "\" Then f = Left(f,Len(f) -1 )If fso.fileexists(f) = False And fso.folderexists(f) = False ThenErr.Raise vbObjectError+128, "ExplorerSel", f & " does not exists" Dim errMsg OnError Resume NextRem ====== code begin shell.Run "explorer.exe /select," & Chr(34) & f & Chr(34),1,TRUE Rem ====== code endIfErr.Number 0 Then errMsg = Err.Description OnError Goto 0 Err.Raise vbObjectError+128, "ExplorerSel", errMsg & vbNewLine & _ " path:" & vbTab & path ExitSubEndIfEndSub
VBS脚本选中文件
本文介绍了一个VBS脚本,该脚本能够在Windows资源管理器中打开并选中指定路径下的文件或文件夹。如果指定路径不存在,脚本会抛出错误提示。此脚本适用于需要通过自动化方式选中特定文件或文件夹的场景。
1万+

被折叠的 条评论
为什么被折叠?



