Discussion :

[JPDU92]

Bonjour à tous, voilà mon soucis, en espérant que vous pourrez m'aider ...

Je voudrais que tous les midi, des répertoire, de mon pc et du serveur soit sauvegardé sur un disque dur dans un répertoire qui viendrait de se créer automatiquement par rapport à la date du jour avec un truc du style : 'sauvegarde du 141008' et que le script efface en meme temps les répertoire de la meme racine vieux de plus de deux semaines... Voilà mon cas...

Si quelqu'un pouvait m'aider, ça serait cool !
Merci d'avance.

[ProgElecT]

Il existe une possibilité de "Rechercher dans ce forum", "rechercher" dans d'autres, des FAQs, des Tutos ......
Pour ma part, les questions que tu poses ont été abordées un très grand nombre de fois, beaucoup comporte des solutions dans divers discussions, alors ...... bonnes recherches.

[JPDU92]

Oui bon c'est vrai, j'ai un peu abusé, sorry mais j'étais super pressé par le temps...
Sinon, voilà, je m'y suis mis, sauf que ça m'efface pas les vieux dossier, c'est normal ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
on error resume next
Dim folder
Dim FSO
Dim nDossier
Dim objFSO
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Set nDossier = FSO.CreateFolder("D:\Utilisateur\BASE DE TEST\" & day(now) & "-" & month(now) & "-" & year (now))
 
FSO.CopyFolder "D:\Utilisateur\GESTION SECRETARIAT\AFFICHE CASIER", nDossier
 
 
 
set folder = FSO.GetFolder ("D:\Utilisateur\BASE DE TEST\")
 
 
    For Each subfolders in folder.subfolders
        If DateDiff("D", subfolders.DateLastModified, now) > 20 Then
        objFSO.DeleteFolder subfolders
        End If
    Next

[ucfoutu]

Bonjour,
- on ne peut "tuer" un répertoire que s'il est vide de tout fichier ...

il te faut donc au préalable "tuer" les fichiers qu'il contient éventuellement

- si le nouveau répertoire est sur le même volume (lecteur), tu pourras trouver plus pratique d'utiliser l'instruction Name As (qui a pour vocation de déplacer le fichier concerné, pour chacun de tes fichiers, vers ton répertoire de sauvegarde), ce qui fait que le répertoire "conteneur" se trouvera vide, puis de "tuer" le répertoire source

[ProgElecT]

on ne peut "tuer" un répertoire que s'il est vide de tout fichier ...

Salut ucfoutu, chez moi il est inutile de vider le dossiers de ces sous-dossiers et/ou fichiers, le Delete ne crée pas d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If DateDiff("D", subfolders.DateLastModified, now) > 20 Then
 subfolders.Delete '<===
End If

[JPDU92]

Bon en fait, ça marche, aprés une petite vérification, c'est bon !!! Merci à tous !

voici le code pour ceux qui le voudrait par la suite...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
on error resume next
Dim folder
Dim FSO
Dim nDossier
Dim objFSO
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Set nDossier = FSO.CreateFolder("D:\Utilisateur\BASE DE TEST\" & day(now) & "-" & month(now) & "-" & year (now))
 
FSO.CopyFolder "D:\Utilisateur\GESTION SECRETARIAT\AFFICHE CASIER", nDossier
 
 
 
set folder = FSO.GetFolder ("D:\Utilisateur\BASE DE TEST\")
 
 
    For Each subfolders in folder.subfolders
If DateDiff("D", subfolders.DateLastModified, now) > 20 Then
subfolders.Delete
End If
 
    Next

[JPDU92]

Bonjour à tous,
voilà, je vous livre mon probléme qui m'est venu, en fait, dans cette copie, seulement 16,4 MO sur 1GO sont copiés, bizarre non ? Les sous dossiers ne sont pas pris en compte, peut etre yen a t'il trop ? Comprend pas !

[JPDU92]

Bonjour à tous, en fait, j'ai supprimé la premiére ligne de mon code et là, enfin, il me dit pourquoi ça marche pas ! c'est la fameuse : erreur 800a004c
Alors je suis bloqué non ?

[SfJ5Rpw8]

Bonjour à tous, en fait, j'ai supprimé la premiére ligne de mon code et là, enfin, il me dit pourquoi ça marche pas ! c'est la fameuse : erreur 800a004c
Alors je suis bloqué non ?

c'est laquelle la ligne supprimée .?

voir
http://vb.developpez.com/faqvbs/?pag...#fsoCopyFolder

les deux premiers paramètres de CopyFolder sont des chaines de caractères ..!

[JPDU92]

Merci pour la faq, mais bon, mon soucis est pas dedans !

la ligne est : "on error resume next"
donc maintenant, il peut me dire qu'elle est mon soucy !
Comme j'ai dit précedemment, je suis bloqué !

[SfJ5Rpw8]

...
les deux premiers paramètres de CopyFolder sont des chaines de caractères ..!

relis la !

dans la les paramètres utilisés sont des chaînes de caractères .. pas dans ton code ..

[JPDU92]

Bon je dois être con car je ne trouve pas la solution à mon probléme, j'ai rajouté les petits "true" mais rien n'y fait (et je ne penses pas que mon probléme venait de là entre nous...) je remets mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim folder
Dim FSO
Dim nDossier
Dim objFSO
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Set nDossier = FSO.CreateFolder("F:\SAUVEGARDE GC\" & day(now) & "-" & month(now) & "-" & year (now))
 
FSO.Copyfolder "T:\GC", nDossier,True
FSO.Copyfolder "D:\partages divisions", nDossier,True
 
 
set folder = FSO.GetFolder ("F:\SAUVEGARDE GC\")
 
 
    For Each subfolders in folder.subfolders
If DateDiff("D", subfolders.DateLastModified, now) > 20 Then
subfolders.Delete
End If

Il me remet la belle box en piéce jointe...

[pitchalov]

Ce que bbil te dit (et tu ferais mieux de le croire quand il te dit que le prob vient de là), c'est que dans les paramètres de tes méthodes CopyFolder, tu ne dois avoir que des chaines de caractère.

Or, toi, ton premier paramètre est bien une chaine de caractère, mais ton 2ème est un objet de type Folder.

Utilise la méthode Path de cette objet, elle renvoie la chaine de caractère dont tu devrait avoir besoin.

[JPDU92]

Merci à tous, mais en fait, c'est un conflit avec la surveillance de mon domaine qui a entrainé tout ça ! Et oui, la gendarmerie, c'est surveillé quand et bloqué ! Merci beaucoup ! (ps : chez moi, ça marche...)