OVH Cloud OVH Cloud

Création rep conditionnel

4 réponses
Avatar
Thierry
Bonjour,

J'ai ce code:

Set objFSO =3D CreateObject("Scripting.FileSystemObject")
strJour =3D Left(Date(),2)
strRepDest =3D "C:\Toto" + "\" + strJour
MsgBox strRepDest
objFSO.CopyFolder "C:\Temp\Toto", strRepDest,=20
OverWriteFiles

Pour r=E9sumer, je souhaite faire une copie d'un r=E9p vers un=20
autre sachant que le nom de celui ci doit commencer =E0 par=20
le date du jour.
J'obtiens l'erreur Chemin d'acc=E8s introuvable, si je=20
remplace C:\Toto par C:\Temp =E7a marche !!!!
Alors que si je mets un nom de r=E9p non compos=E9 qui=20
n'existe pas il va me cr=E9er le r=E9p automatiquement !!!!

Avez vous quelques id=E9es?
Merci,=20
Amicalement
Thierry

4 réponses

Avatar
tibule
Le Fri, 23 Jul 2004 07:32:35 -0700, "Thierry"

OverWriteFiles


Salut,

C'est quoi la routine OverWriteFiles ?

Essaie en créant le dossier de réception avant de faire la copie,
c'est plus logique.


A+

Christophe




===================================================================
Si tu rencontres un homme médiocre, cherche ses défauts en toi-même.

Confucius (VIe-Ve avt J.C.)




Avatar
Thierry
Bonsoir,

overWriteFiles est là pour réécrire sur les fichiers si
existant.
Sachant qu'un mois peut contenir 31 jour, une sauvegarde
par jour dans chaque répertoire de chaque jour.
Il faudrait que je crée les 31 répertoires !!!!
Il y a plus simpe surement, une erreur de syntaxe ou une
astuce peut certainement règler mon pb.

Amicalement
Thierry


-----Message d'origine-----
Le Fri, 23 Jul 2004 07:32:35 -0700, "Thierry"

OverWriteFiles


Salut,

C'est quoi la routine OverWriteFiles ?

Essaie en créant le dossier de réception avant de faire
la copie,

c'est plus logique.


A+

Christophe




======================== ========================= =========
==========


Si tu rencontres un homme médiocre, cherche ses défauts
en toi-même.


Confucius (VIe-Ve avt J.C.)



.




Avatar
tibule
Le Fri, 23 Jul 2004 11:30:34 -0700, "Thierry"

Bonsoir,

overWriteFiles est là pour réécrire sur les fichiers si
existant.
Sachant qu'un mois peut contenir 31 jour, une sauvegarde
par jour dans chaque répertoire de chaque jour.
Il faudrait que je crée les 31 répertoires !!!!



Tu devrais peut-être nous copier le script en entier.
Par exemple cette procédure elle peut être en cause.
Tu as essayé en créant le dossier daté avant la copie?

ch






===================================================================
Si tu rencontres un homme médiocre, cherche ses défauts en toi-même.

Confucius (VIe-Ve avt J.C.)




Avatar
Jacques Barathon [MS]
La création de dossier de la méthode CopyFolder ne marche pas
automatiquement si tu précises plusieurs niveaux de répertoires! Dans le cas
du test avec C:Temp, ce répertoire existe déjà, le script n'a donc qu'à
créer le sous-répertoire date-du-jour.

Tu devrais donc créer C:Toto avant de faire appel à CopyFolder, ou te
limiter à un seul niveau de répertoire ("C:Toto-date-du-jour" par
exemple).

Jacques

"Thierry" wrote in message
news:2c4001c470c1$e547bf20$
Bonjour,

J'ai ce code:

Set objFSO = CreateObject("Scripting.FileSystemObject")
strJour = Left(Date(),2)
strRepDest = "C:Toto" + "" + strJour
MsgBox strRepDest
objFSO.CopyFolder "C:TempToto", strRepDest,
OverWriteFiles

Pour résumer, je souhaite faire une copie d'un rép vers un
autre sachant que le nom de celui ci doit commencer à par
le date du jour.
J'obtiens l'erreur Chemin d'accès introuvable, si je
remplace C:Toto par C:Temp ça marche !!!!
Alors que si je mets un nom de rép non composé qui
n'existe pas il va me créer le rép automatiquement !!!!

Avez vous quelques idées?
Merci,
Amicalement
Thierry