Sauvegarde et destruction

Version imprimable

14/10/2008, 14h17
JPDU92

Sauvegarde et destruction

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

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. ;)
16/10/2008, 12h45
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.

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:

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

17/10/2008, 18h38
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
17/10/2008, 18h54
ProgElecT
Citation:

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:

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

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:

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

22/10/2008, 09h54
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 !
27/10/2008, 13h18
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 ?
27/10/2008, 19h17
SfJ5Rpw8

Citation:

Envoyé par 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 ?

c'est laquelle la ligne supprimée .?

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

les deux premiers paramètres de CopyFolder sont des chaines de caractères ..!
29/10/2008, 13h37
JPDU92

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

la ligne est : "on error resume next" :)
donc maintenant, il peut me dire qu'elle est mon soucy ! :P
Comme j'ai dit précedemment, je suis bloqué !
29/10/2008, 18h05
SfJ5Rpw8

Citation:

Envoyé par bbil

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

relis la :faq: !

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

1 pièce(s) jointe(s)

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:

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... 8O

30/10/2008, 14h15
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.
03/11/2008, 13h28
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...)