Vba and Mac - process all files of a folder

[dantesp]

Hello,

I have a big problem, I don't understand if the path is wrong but the fact is that it gives me an error. Runtime 68 device not available

Sub AllFiles()
    Dim folderPath As String
    Dim filename As String
    Dim wb As Workbook
  
    folderPath = "Macintosh HD:Users:Desposa:Desktop:cdfe:" 'change to suit
    
    If Right(folderPath, 1) <> "\" Then folderPath = folderPath + "\"
    
    filename = Dir(folderPath & "*.xlsx")
    Do While filename <> ""
      Application.ScreenUpdating = False
        Set wb = Workbooks.Open(folderPath & filename)
         
        'Call a subroutine here to operate on the just-opened workbook
        Call DeleteAllEmptyRows
        Call UnmergeAllCells
        Call insertlinea
        Call valuea56
        
        
        filename = Dir
    Loop
  Application.ScreenUpdating = True
End Sub

 

[dantesp]

I don't know if the problem is mac and no windows.

Anyway, can be a solution this below?

RootFolder = MacScript("return (path to desktop folder) as String")
    'Or use RootFolder = "Macintosh HD:Users:YourUserName:Desktop:TestMap:"
    'Note : for a fixed path use : as seperator in 2011 and 2016

    If Val(Application.Version) < 15 Then
        scriptstr = "(choose folder with prompt ""Select the folder""" & _
            " default location alias """ & RootFolder & """) as string"
    Else
        scriptstr = "return posix path of (choose folder with prompt ""Select the folder""" & _
            " default location alias """ & RootFolder & """) as string"
    End If

    folderPath = MacScript(scriptstr)
    On Error GoTo 0

    If folderPath <> "" Then
        MsgBox folderPath
    End If

Many thanks