打开超链接时的问题

按钮单击事件写

    Dim strPathName As String
    If MsgBox("请选择您要打开的格式文件", vbOKCancel + vbInformation, "提示!!!!") = vbOK Then
        With Application.FileDialog(3)
            .Filters.Clear
            '将下面一行的单引号去除,表示启用指定的文件夹位置
            '.InitialFileName = "D:\"
            If .Show Then
                strPathName = .SelectedItems(1)
            End If
        End With
        If strPathName <> "" Then
            Shell "explorer.exe """ & strPathName & """", vbNormalFocus
        End If
    End If