sauvegarde vers autre fichier

[ludosnip]

Bonjour,

 

j'aimerais faire une sauvegarde de mon fichier nommé CDI qui se trouve sur C:\ vers un autre fichier Access qui lui se nomme sauvegarde qui se trouve sur C:\, j'ai testé cela mais ca ne marche pas

 

 

Private Sub Commande11_Click()

 

Dim strCurrent, strDest As String

strCurrent = CurrentProject.Path & "C:\CDI.mdb"

strDest = CurrentProject.Path & "C:\sauvegarde.mdb"

 

FileCopy strCurrent, strDest

 

End Sub

 

Quelqu'un pourrait m'aider ?

 

merci d'avance

[Greywolf]

tu concatènes CurrentProject.Path, qui, j'imagine, est une adresse absolue, avec une autre adresse absolue ??

 

si tu fais un echo de tes 2 strings StrCurrent et Strdest n'y-a-t-il pas un problème?

[ludosnip]

Merci donc je dois retirer CurrentProject.Path ?

[ludosnip]

merci pour m'avoir répondu, j'ai essayé sans CurrentProject.Path & mais cela me met un message d'erreur "Erreur d'exécution 70 permission refusée"

 

voici mon code :

 

Code :

 

Private Sub cmd_sauv_Click()

 

Dim strCurrent, strDest As String

strCurrent = "c:\CDI.mdb"

strDest = "c:\sauvegarde.mdb"

 

FileCopy strCurrent, strDest

 

End Sub

 

cmd_sauv étant le nom de mon bouton commande

 

merci d'avance

[Greywolf]

VBA gère-t-il les droits NTFS?

Les scripts VB sont lancés sous une identité système particulière?

comment accède-t-il au système de fichiers?