VBA Issue - Application.FileDialog return Nothing

Question

Is there something wrong with the lines of code below? It results in the following error.

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

Answer 1

I don't think FileDialog works on a Mac. See Loop through Files in Folder on Mac for an alternative.

Answer 2

Hi

Please refer to this page by MVP Ron DeBruin for examples on how to work with files and folders:

https://www.macexcel.com/examples/filesandfolders/

Thanks Jim

Answer 3

Thanks HansV.

Answer 4

Hi

Please refer to this page by MVP Ron DeBruin for examples on how to work with files and folders:

https://www.macexcel.com/examples/filesandfolders/