Help with Folder Picker for Mac

[gmaxey]

Hello. I have a process that works with a PC for a user to select a folder and then process all Word documents in that folder.


I need a version that will work with a Mac but don't have a Mac to test with. Hoping someone here can assist.


The document is attached, but here is the folder picker code I have cobbled together but can't test.

Function fcnFolderPickerMac() As String
Dim strPath As String
Dim strRoot As String
Dim strScript As String
'This is the function that I have no way to test.
  On Error Resume Next
  'Enter the Start Folder, Desktop in this example,
  strRoot = MacScript("return POSIX path of (path to desktop folder) as String") 'How would you change this make the root say "D:\Test" ?
  'Make the path Colon seperated for using in MacScript
  strRoot = MacScript("return POSIX file (""" & strRoot & """) as string")
  'Make the Script string
  strScript = "return POSIX path of (choose folder with prompt ""Select the folder""" & " default location alias """ & strRoot & """) as string"
  'Run the Script
  strPath = MacScript(strScript)
  On Error GoTo 0
  If strPath <> "" Then fcnFolderPickerMac
lbl_Exit:
  Exit Function
 End Function

Questions: 1. Can the attached document be opened and the process run without error? 2. As written, does the script above allow the user to navigate to any folder on their Mac? 3. How to modify script so that the default root path is something other than the user's desktop e.g., D:\Outline Folder?


Thank you.