Excel_VBA FileDialog 打开文件夹或文件

‘浏览文件和文件夹清单
Application.FileDialog(msoFileDialogFilePicker).Show
‘浏览文件夹清单
Application.FileDialog(msoFileDialogFolderPicker).Show

FileDialog   打开文件夹或文件
Dir 判断文件存在

Sub 按钮1_Click()

  '选择单一文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
    
        If .Show = -1 Then
           'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
         MsgBox "您选择的文件夹是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
          Dim fileOfIndexHtml As String
          fileOfIndexHtml = .SelectedItems(1) + "\index.html"
          '如果文件不存在就返回空字符串
          If Dir(fileOfIndexHtml) = "" Then MsgBox "文件夹中不存在，请重新指定文件目录!" Else MsgBox "该文件存在." + fileOfIndexHtml
        
        End If
       
    End With
  
End Sub