打开文件夹并且选中指定的文件的通用函数实现

最新推荐文章于 2025-05-05 06:46:10 发布

Channels_net

最新推荐文章于 2025-05-05 06:46:10 发布

阅读量807

点赞数

分类专栏： C# 文章标签： function string command shell c

C# 专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一个VBA函数'OpenFolderAndSelectSpecialFile'，该函数用于打开指定文件夹并选中特定文件。如果指定的文件存在，则函数返回True；如果文件不存在或选中失败，则返回False。

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

'程序设计：唐细刚 2006 2006-4-19 At shenzhen

'函数：OpenFolderAndSelectSpecialFile
'用途：打开指定的文件夹并且选中指定的文件
'参数：szSpecialFileForSelect 想要选中的文件全路径
'返回：True:选中文件成功 False: 选中文件失败或者指定文件不存在
Public Function OpenFolderAndSelectSpecialFile(ByVal szSpecialFileForSelect As String) As Boolean
    On Error GoTo hErr
    If Dir(szSpecialFileForSelect) <> "" Then
       Dim szShellSelect As String
       szShellSelect = "Explorer /select, "
       szShellSelect = szShellSelect & szSpecialFileForSelect
       Shell szShellSelect, vbNormalFocus
       OpenFolderAndSelectSpecialFile = True
    End If
    Exit Function
hErr:
End Function

'调用举例：

Private Sub Command1_Click()
Call OpenFolderAndSelectSpecialFile("C:/Program Files/Internet Explorer/IEXPLORE.EXE")
End Sub