Copie de fichiers sous condition

Version imprimable

17/08/2010, 14h50
tchitchouca

Copie de fichiers sous condition

Bonjour a tous le monde

Je voudrais faire un programme vbscript.

On a deux deux dossiers rep1 et rep2 et chaque dossier contient des fichers de même nom mais de taille différente.
Je veux faire la copie des fichiers de rep1 vers rep2 si la taille du fichier dans rep1 est plus petite que celle dans rep2.
Si cette condition et verifier alor ecraser et copier
merci d avance

Salut:
Le script suivant copie tous les fichiers du dossier Rep1 vers Rep2 en vérifiant que les noms concordent et que la taille du fichier à copier est inférieure à celle du fichier cible:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Option Explicit Dim FSO,FD2,FD1,F1,F2 const Rep1="C:\Rep1" , Rep2="C:\Rep2" set Fso=CreateObject("Scripting.FileSystemObject") Set FD1=FSO.GetFolder(Rep1) set FD2=FSO.GetFolder(Rep2) For Each f1 In FD1.Files For Each f2 In FD2.Files If F1.Size < F2.Size and _ Ucase(F1.Name)=Ucase(F2.Name) then F1.copy F2,True End If Next Next
Amuse-toi et bonne chance

19/08/2010, 12h26
tchitchouca

bonjour merci pour votre aide
mai je veu bien ajouter un parametre pour que dans le script je met pa les nom des dossier .il faut faire un parametre .bat qui appele auscript j ai des problem au niveau du sript comment le modifier
merci

Voila j ai modifier mai ca arche pa

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Dim FSO,folder1,folder2,File1,File2,oArgs  
 
set Fso=CreateObject("Scripting.FileSystemObject")
 Set oArgs = Wscript.Arguments
If oArgs.Count <> 2 Then
	Wscript.Quit 1
End If
Set folder1=FSO.GetFolder(oArgs(0)) 
set folder2=FSO.GetFolder(oArgs(0)) 
 
For Each File1 In folder1.Files
	If File1.Size < File2.Size and _
		Ucase(File1.Name)=Ucase(File2.Name) then
		File1.copy File2,True
	End If
	Next
msgbox "traitement terminer"

19/08/2010, 22h16
l_autodidacte

Salut

On est peut-être obligé de passer par les noms des dossiers.

De plus, dans ton dernier script, tu fais un balayage des fichiers du dossier source et tu oublies le dossier de destination qui devra être mentionné pour la comparaison.
Quant aux arguments, ils doivent se rapporter au script présent qui,me semble-t-il, n'en a pas.

Concernant la modification du script, que veux-tu exactement faire ? car il me semble que je n'ai pas saisi ce que tu cherche à faire.

Cordialement
20/08/2010, 09h22
tchitchouca

Bonjour
je veux bien un script général pour plusieurs utilisateurs, mais je ne veux pas à chaque fois changer le nom du répertoire cible et destination.
je veux paramétrer le script.

Dans ce cas, utilise "InpuBox" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 Dim FSO,FD2,FD1,F1,F2,Rep1,Rep2     '  const Rep1="C:\Rep1"   , Rep2="C:\Rep2"
 
set Fso=CreateObject("Scripting.FileSystemObject")
 
Rep1=InputBox("Indiquer le chemin du dossier source :","Dossier Source")
Rep2=InputBox("Indiquer le chemin du dossier cible :","Dossier cible")
 
If Rep1="" or Rep2="" or not fso.FolderExists(Rep1) or Not fso.FolderExists(Rep2) then 
   Msgbox "Vous devez indiquer les chemins des dossiers " _
     & vbcrlf & "source et cible sans erreur de saisie !",VbInformation
    Wscript.quit
end if
Set FD1=FSO.GetFolder(Rep1)				
set FD2=FSO.GetFolder(Rep2)				
   For Each f1 In FD1.Files			        	
     For Each f2 In FD2.Files
       If F1.Size < F2.Size and Ucase(F1.Name)=Ucase(F2.Name) then   '20
          F1.copy F2,True
       End If
     Next
  Next

Pour le moment, je n'ai pas mieux.

23/08/2010, 11h04
tchitchouca

Merci pour votre aide
Mai le programme que je veu
je veu le lancer a partir d un serveur alor je veu le parametrer
normalement a partir dun fichier (.bat) ....