Procedure vb pour ecrire sur disquette

bonjour
dans mon application (vb6 , access) j ai ecris une procedure qui est sensée copier ma baase de donnée sur disquette ! mais à chaque fois que je l'execute j ai le message " acces refusé " j ai changé de disquette et meme de poste mais tj le même prob , vlà le code merci d y jeter un coup d'oeil:
On Error GoTo testerr
Dim reponse As String
reponse = MsgBox("åá ÊÑíÏ ÝÚáÇ äÞá ÇáãÚØíÇÊ Úáì ÞÑÕ", vbYesNo)
If reponse = vbNo Then
Exit Sub
End If


MkDir "a:\truc"


FileCopy "c:\personnel\pers.mdb", "a:\truc\pers.mdb"




MsgBox "les données ont été copié sur votre disquette avec succès !"
Exit Sub
testerr:
MsgBox Err.Number & vbLf & Err.Description
End Sub

merci