Option Explicit
Dim xRg As Range
Dim xStr As String
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String, xFolderPath As String, xFileExtnFilter As String, xStrData As String
Dim xFileNum As Long
Dim RegExp As Object
Dim xWdApp
Dim xWd

Public Sub DirPathNames()

   
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)

       With xFd
       .Title = "Select the Folder..."
              If .Show = -1 Then 
                xFdItem = xFd.SelectedItems(1)
                txtFolderPath.Text = xFdItem 
              Else
                MsgBox "No Folder Path Selected"
              Exit Sub
              End If
       End With

xFolderPath = txtFolderPath.Text
xFileExtnFilter = "*.PDF"

If Dir(xFolderPath & "\" & xFileExtnFilter) = "" Then
    MsgBox "There are no files of the type:" & vbCrLf & xFolderPath & "\" & xFileExtnFilter
    Exit Sub
  Else
  
  xFileName = Dir(xFolderPath & "\" & xFileExtnFilter)
  
  Do While xFileName <> ""
    LstfileBx.AddItem xFolderPath & "\" & xFileName
    xFileName = Dir
  Loop

 End If

End Sub

Private Sub LstfileBx_Click()

txtFolderPath.Text = LstfileBx.Text
          
 Open txtFolderPath.Text For Binary As #xFileNum
          xStrData = Space(LOF(xFileNum))
          Get #xFileNum, , xStrData
      Close #xFileNum
 txtNoOfPAgesPDF.Text = RegExp.Execute(xStrData).Count
End Sub

Private Sub LstfileBx_Click()

Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "/Type\s*/Page[^s]"
xFileNum = FreeFile

txtFolderPath.Text = LstfileBx.Text
          
 Open txtFolderPath.Text For Binary As #xFileNum
          xStrData = Space(LOF(xFileNum))
          Get #xFileNum, , xStrData
      Close #xFileNum
 txtNoOfPAgesPDF.Text = RegExp.Execute(xStrData).Count
End Sub

Public Sub DirPathNamesWithFilePicker()

Set xFd = Application.FileDialog(msoFileDialogFilePicker)

       With xFd
       .Title = "Select the Folder..."
             .Filters.Clear
             .Filters.Add "PDF Files", "*.PDF", 1
              If .Show = -1 Then
              For Each xFdItem In .SelectedItems
                  MsgBox "Path Name : " & xFdItem
                 Next xFdItem
              Else
              
              End If
        End With

Set xFd = Nothing
End Sub

Public Sub DirPathNamesWithFilePicker()
  Dim xFD As FileDialog, xFdItem As Variant
  Set xFD = Application.FileDialog(msoFileDialogFilePicker)
  With xFD
    .Title = "Select a file"
    .Filters.Clear
    .Filters.Add "Acrobat Files", "*.PDF", 1
     If .Show = -1 Then
        For Each xFdItem In .SelectedItems
          Debug.Print "Path Name: " & xFdItem
          ActiveDocument.FollowHyperlink xFdItem
        Next xFdItem
     End If
   End With
  Set xFD = Nothing
End Sub