Chemin de travail sur le PC, mais pas de Mac

J'ai un problème avec mon code VBA sur mon ordinateur mac. Il fonctionne très bien sur Windows. Je sais qu'il a quelque chose à voir avec la spécification de répertoire, mais je ne suis pas sûr que sur le droit de la syntaxe.
Le classeur est dans un dossier, puis je veux spécifier un autre dossier (Datatextfiles) qui est dans le même dossier que le carnet de travail.

'Change Path
Dim strPath As String
Dim MyDir As String
MyDir = ActiveWorkbook.Path
strPath = MyDir & "/Datatextfiles/"

Dim strExtension As String

 'Stop Screen Flickering
Application.ScreenUpdating = Falsew

 'Change extension
strExtension = Dir(strPath & "*.txt")

clearData

Do While strExtension <> ""
C'est aussi ma compréhension que les Mac ne reconnaît pas les extensions de fichier. Je ne suis pas en mesure de tester cela, mais je sais que y compris l'extension de fichier arguments déclenchera une erreur dans certains cas, comme, Application.GetOpenFileName() ou .GetSaveAsFileName, etc.

OriginalL'auteur Skittles | 2013-05-19