Comprendre un script VBS

Option explicit Dim source_dir, xmlfiles, target_dir, file, objFS, objFile source_dir=":\\srv\script\" xmlfiles = Array("CompositesGVSContourOnly.xml", "CompositesGVSExplodedOnly.xml", "CompositeGVSFlattenOnly.xml") target_dir="C:\Program Files\CAO\resources\templates\" set objFS = CreateObject("Scripting.FileSystemObjet") For Each file In xmlfiles if Not objFS.FileExists(target_dir & file) then if objFS.FileExists(source_dir & file) then Set objFile = objFS.GetFile(source_dir & file) objFile.Copy(target_dir) end if end if Next

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option explicit
 
Dim source_dir, xmlfiles, target_dir, file, objFS, objFile
 
'dossier source des fichiers à copier
source_dir = ":\\srv\script\"
'Nom des fichiers a traiter
xmlfiles = Array("CompositesGVSContourOnly.xml", "CompositesGVSExplodedOnly.xml", "CompositeGVSFlattenOnly.xml")
'dossier destination ou vont être copiés les fichiers
target_dir = "C:\Program Files\CAO\resources\templates\"
 
Set objFS = CreateObject("Scripting.FileSystemObjet") 'objet de manipulation dossiers/fichiers
 
For Each file In xmlfiles 'boucle sur chaque nom de fichiers contenus dans la variable xmlfiles
    If Not objFS.FileExists(target_dir & file) Then 'si le fichier source n'existe pas dans le dossier destination
        If objFS.FileExists(source_dir & file) Then 'si le fichier existe bien dans le dossier source
            Set objFile = objFS.GetFile(source_dir & file) ' création d'une référence au chemin source et son fichier
            objFile.Copy (target_dir) 'copie le fichier source dans le dossier destination
        End If
    End If
Next