OVH Cloud OVH Cloud

Sauvegarde de dossiers Windows

1 réponse
Avatar
Bernard-VIVIER
Je cherche la syntaxe nécessaire pour copier un répertoire complet avec tous
les dossiers et sous dossiers inclus, sous Access vers un autre disque, afin
d'automatiser certaines sauvegardes quotidienne.

Les commande trouvée dans l'aide m'indique la syntaxe suivante :

RépertoireOrigine.copyFolder RépertoireDestination, True

RépertoireOrigine et RépertoireDestination étant deux variables contenant le
chemin complet et le nom du répertoire. Mais que dois-je inscrire comme code
au préalable, pour qu'il prenne en compte ces deux variables en tant que
répertoire.

J'ai essayé :

Set fs = CreateObject("Scripting.FileSystemObject")
Set RépertoireOrigine = fs.GetFolder("Chemin complet et nom du
répertoire d'orgine)

Mais apparemment, cela ne fonctionne pas...

C'est une question qui me semblait simple et qui doit l'être, mais qui me
prend la tête... L'aide Access ne donnant aucun exemple de l'utilisation de
copyFolder ou copyFile.

Merci d'avance, si vous pouvez me répondre,
BV

1 réponse

Avatar
Raymond [mvp]
Bonsoir.

il faut partir sur ce modèle:
Dim fso As New filesystemobject
Dim Fso_Folder As Folder
Set Fso_Folder = fso.GetFolder("c:origine")
Fso_Folder.Copy "c:destination"

cocher la référence microsofyt scripting runtime
attention, non testé.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Bernard-VIVIER" a écrit dans le message de
news:c9ie2o$3o6$
Je cherche la syntaxe nécessaire pour copier un répertoire complet avec
tous

les dossiers et sous dossiers inclus, sous Access vers un autre disque,
afin

d'automatiser certaines sauvegardes quotidienne.

Les commande trouvée dans l'aide m'indique la syntaxe suivante :

RépertoireOrigine.copyFolder RépertoireDestination, True

RépertoireOrigine et RépertoireDestination étant deux variables contenant
le

chemin complet et le nom du répertoire. Mais que dois-je inscrire comme
code

au préalable, pour qu'il prenne en compte ces deux variables en tant que
répertoire.

J'ai essayé :

Set fs = CreateObject("Scripting.FileSystemObject")
Set RépertoireOrigine = fs.GetFolder("Chemin complet et nom du
répertoire d'orgine)

Mais apparemment, cela ne fonctionne pas...

C'est une question qui me semblait simple et qui doit l'être, mais qui me
prend la tête... L'aide Access ne donnant aucun exemple de l'utilisation
de

copyFolder ou copyFile.

Merci d'avance, si vous pouvez me répondre,
BV