Copier un fichier vers la freebox

FREEBOX est bien dans l'arborescence de windows sous le nom de FREEBOX

'### Envoi COPIER un fichier vers FREEBOX
Private Sub Label1_Click()

Dim SourceFichier As String
Dim DestinationFichier As String

    SourceFichier = "E:\Videos\Alex cross.avi"
    DestinationFichier = "Disque dur(\\FREEBOX)(Z:)"

FileCopy SourceFichier, DestinationFichier       '*** ligne passe jaune erreur

End Sub

DestinationFichier = "\\FREEBOX"    '*** erreur fichier

DestinationFichier = "\\FREEBOX\Vidéos\Alex cross.avi"

'### Envoi COPIER un fichier vers FREEBOX
Private Sub Label1_Click()

Dim SourceFichier As String
Dim DestinationFichier As String

    SourceFichier = "E:\Videos\Alex cross.avi"
    DestinationFichier = "\\FREEBOX\Disque dur\Vidéos\Alex cross.avi"

FileCopy SourceFichier, DestinationFichier

MsgBox "transfert terminé"

End Sub