Сохранение файла в папку на Mac

Question

Исходя из VBA, я скачал код, который позволяет сохранять мою книгу в Excel в определенном месте и, при необходимости, создавать новую папку. Но код был предназначен для окон, и путь "путь =" c: / invoices ". Я попытался изменить путь на" MkDir (invoicePath = "/ Users / misto / Documents" & folderName) "и не удается сохранить из-за разрешение, хотя я изменил разрешение на «чтение и запись». Как обойти это?

  fName = Dir(invoicePath & folderName & "\" & fNamePrefix & folderName & "-*" & fNameExt)
  If fName = "" Then
      'file not found
      If Dir(invoicePath & folderName, vbDirectory) = "" Then
          'month not found - create folder?
          If MsgBox("Okay to create folder '" & invoicePath & folderName & "' for invoice #" & folderName & "-001 ?", _
              vbOKCancel + vbQuestion, "Folder not Found") <> vbOK Then Exit Sub
          'create folder
          MkDir (invoicePath = "/Users/misto/Documents" & folderName)
      End If
  Else
      'month found. Now find the highest invoice number in the folder.
      Do While fName <> ""
          Debug.Print "Found File: " & fName
          'get the number (filename = fNamePrefix & "YYMM-___.xlsx" so we know where it is
          If IsNumeric(Mid(fName, 6 + Len(fNamePrefix), 3)) Then 'it's a valid number
              fNum = Val(Mid(fName, 6 + Len(fNamePrefix), 3))
              'if it's the biggest so far, remember it
              If fNum > nextInvoiceNum Then nextInvoiceNum = fNum 'biggest one so far
          End If
          fName = Dir
      Loop
  End If