Discussion :

[technopowaz]

Bonjour,

je suis en train de réviser un concours, n'ayant aucune connaissance en langage VBS on me demande ce que fait le script suivant avec comme sujet :

Le script suivant (Visual Basic Script) est déployé par GPO sur les ordinateurs équipés du système Microsoft Windows d'une salle d'enseignement pour les besoins d'un TP en CAO

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

Quelqu'un pourrait m'aider svp ?

MErci

[ProgElecT]

Salut

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