我已经为 Windows 计算机创建了一个代码，但我没想到 Mac 会这么难。所以我在我的Mac上加载了parallèle，但错误消息总是一样的：找不到访问路径。你有解决方案吗 ？
Sub creer_dossier_fin()
'variable'
Dim Chemin As String
Dim chemin_du_dossier As String
Dim chemin_dossierA As String
'identifier le chemin du dossier'
chemin_dossierA = "\\Mac\Home\Desktop\photoclient\"
'tester son existence'
If Dir(chemin_dossierA, vbDirectory) <> vbNullString Then
Else
'si le dossier n'existe pas, le creer'
MkDir (chemin_dossierA)
End If
'identifier le chemin du dossier'
chemin_du_dossier = "\\Mac\Home\Desktop\photoclient\" & ActiveSheet.Name & "\"
'tester son existence'
If Dir(chemin_du_dossier, vbDirectory) <> vbNullString Then
'Ouvrir le dossier'
Chemin = "\\Mac\Home\Desktop\photoclient\" & ActiveSheet.Name & "\"
Else
'si le dossier n'existe pas, le crŽer'
MkDir (chemin_du_dossier)
'message'
MsgBox ("Dossier cree")
End If
Chemin = "\\Mac\Home\Desktop\photoclient\" & ActiveSheet.Name & "\"
Shell Environ("WINDIR") & "\explorer.exe " & Chemin, vbNormalFocus
End Sub