Copier des fichiers de + de 30 jours

Version imprimable

Bonjour,

je souhaiterai copier des fichiers de + de 30 jours d'un dossier "Source" à un autre "Destination"

Je rappelle que je débute en VBS.

Merci d'avance pour votre aide et compréhension

Mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim Source
Dim Destination
Dim objFSO, oShell,Folder 
 
Source = "E:\Program\projets\Traitement\Etude\DossierA"
Destination = "S:\Traitement\Etude\DossierA\Safe"
 
 
AgeMaximalFichiers = 30
 
DateSysteme = Date
 
 
'--------------------------------------------------------------
'Copie des fichiers de + de 30 jours DossierA n-1 dans le dossier Safe
'--------------------------------------------------------------
 
Sub Copie des fichiers
 
Set Folder = fso.Getfolder(Source)
For Each File In Folder.Files
   If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
		If File.Attributes And 1 Then File.Attributes = File.Attributes - 1
        File.Copy DestDir(Destination)
	Else
 
End If
 
End Sub
 
'Traitement de la fonction
 
Copie des fichiers

08/03/2013, 12h39
ProgElecT

Salut

Citation:

Je rappelle que je débute en VBS

Où trouver l'aide en ligne pour VBScript ?, cela te permettrai de trouver la solution plus vite que d'attendre une réponse.
08/03/2013, 13h48
l_autodidacte

Le nom d'une fonction ou d'une procédure(Sub) ne doit pas contenir d'espace tel que tu l'as fait

Citation:

Sub Copie des fichiers

Ce serait mieux sous la forme

Code:

Sub Copie_des_fichiers()

La ligne 24 est incorrecte, il faut mettre ce

Code:

File.Copy DestDir

car DestDir c'est le dossier destination des fichiers à copier

Merci pour les réponses

Merci encore pour vos réponses

Après modifications, je rencontre toujours le même problème,
les fichiers de + de 30jours ne sont pas copiés dans le dossier de destination.
J'ai bien des fichiers.bak de plus de 3 mois dans mon dossier source.
Merci pour votre aide.

Modifié en vert

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim Source
Dim Destination
Dim objFSO, oShell,Folder 
 
Source = "E:\Program\projets\Traitement\Etude\DossierA"
Destination = "S:\Traitement\Etude\DossierA\Safe"
 
 
AgeMaximalFichiers = 30
 
DateSysteme = Date
 
 
'--------------------------------------------------------------
'Copie des fichiers de + de 30 jours DossierA n-1 dans le dossier Safe
'--------------------------------------------------------------
 
Sub Copie_des_fichiers 
Set Folder = fso.Getfolder(Source)
For Each File In Folder.Files
   If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
		If File.Attributes And 1 Then File.Attributes = File.Attributes - 1
        File.Copy DestDir 
       Else
 
End If
 
End Sub
 
'Traitement de la fonction
 
Copie des fichiers

Essaie avec ce :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim Source
Dim Destination
Dim objFSO, oShell,Fold,Fich 
 
Source = "E:\Program\projets\Traitement\Etude\DossierA"
Destination = "S:\Traitement\Etude\DossierA\Safe"

AgeMaximalFichiers = 30
 
DateSysteme = Date

'--------------------------------------------------------------
'Copie des fichiers de + de 30 jours DossierA n-1 dans le dossier Safe
'--------------------------------------------------------------
Sub Copie_des_fichiers()
Set Fold = fso.Getfolder(Source)
For Each Fich In Fold.Files
   If (DateDiff("d", Fich.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
		If Fich.Attributes And 1 Then Fich.Attributes = Fich.Attributes - 1
            Fich.Copy Destination ' puisque tu l'as déjà définie 
   End If
 
End Sub
 
'Traitement de la fonction
 
Copie_des_fichiers

Merci, je crois que cela ne va pas être facile. J'ai toujours le même problème ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim Source
Dim Destination
Dim objFSO, oShell,Fold,Fich 
 
Source = "E:\Program\projets\Traitement\Etude\DossierA"
Destination = "S:\Traitement\Etude\DossierA\Safe"

AgeMaximalFichiers = 30
 
DateSysteme = Date

'--------------------------------------------------------------
'Copie des fichiers de + de 30 jours DossierA n-1 dans le dossier Safe
'--------------------------------------------------------------
Sub Copie_des_fichiers()
Set Fold = fso.Getfolder(Source)
For Each Fich In Fold.Files
   If (DateDiff("d", Fich.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
		If Fich.Attributes And 1 Then Fich.Attributes = Fich.Attributes - 1
          Fich.Copy Destination  puisque tu l'as déjà définie 
   End If
 
End Sub
 
'Traitement de la fonction
 
Copie_des_fichiers

08/03/2013, 19h03
ProgElecT

Salut

Ligne 20 de ton dernier code, il manque le REM pour mettre en commentaire ' puisque tu l'as déjà définie

Merci pour la réponse mais IDEM

Incompréhensible ?
Merci à tous.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim Source
Dim Destination
Dim objFSO, oShell,Fold,Fich 
 
Source = "E:\Program\projets\Traitement\Etude\DossierA"
Destination = "S:\Traitement\Etude\DossierA\Safe"
 
AgeMaximalFichiers = 30
 
DateSysteme = Date
 
'--------------------------------------------------------------
'Copie des fichiers de + de 30 jours DossierA n-1 dans le dossier Safe
'--------------------------------------------------------------
Sub Copie_des_fichiers()
Set Fold = fso.Getfolder(Source)
For Each Fich In Fold.Files
   If (DateDiff("d", Fich.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
		If Fich.Attributes And 1 Then Fich.Attributes = Fich.Attributes - 1
          Fich.Copy Destination  ' puisque tu l'as déjà définie 
   End If
 
End Sub
 
'Traitement de la fonction
 
Copie_des_fichiers

Bon ce code doit pouvoir marcher sans problème

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim Source
 Dim Destination
 Dim objFSO, Fold,Fich 
 
 Source = "E:\Program\projets\Traitement\Etude\DossierA"
Destination = "S:\Traitement\Etude\DossierA\Safe"
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 AgeMaximalFichiers = 30
 
 DateSysteme = Date
 Copie_des_fichiers
'--------------------------------------------------------------
'Copie des fichiers de + de 30 jours DossierA n-1 dans le dossier Safe
'--------------------------------------------------------------
Sub Copie_des_fichiers()
Set Fold = objfso.Getfolder(Source)
 For Each Fich In Fold.Files
   If (DateDiff("d", Fich.DateCreated, DateSysteme) > AgeMaximalFichiers) Then
	 If Fich.Attributes And 1 Then Fich.Attributes = Fich.Attributes - 1
         Fich.Copy Destination & "\" , true 
   End If
 Next
End Sub

10/03/2013, 16h59
PAB/31/SAB

Merci Cela fonctionne parfaitement

Merci pour votre réponse,
je viens de tester, et cela fonctionne parfaitement, je l'ai adapté pour ensuite supprimer les fichiers copiés dans le dossierA.

Merci beaucoup.
:ccool: