Discussion :

[PAB/31/SAB]

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 :

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
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

[ProgElecT]

Salut

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.

[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

Sub Copie des fichiers

Ce serait mieux sous la forme

Code :

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

Sub Copie_des_fichiers()

La ligne 24 est incorrecte, il faut mettre ce

Code :

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

File.Copy DestDir

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

[PAB/31/SAB]

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 :

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
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

[l_autodidacte]

Essaie avec ce :

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
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

[PAB/31/SAB]

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

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
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

[ProgElecT]

Salut

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

[PAB/31/SAB]

Incompréhensible ?
Merci à tous.

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
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

[l_autodidacte]

Bon ce code doit pouvoir marcher sans problème

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
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

[PAB/31/SAB]

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.