Bonjour à tous,

n'étant expert VBS, je me tire les peu de cheveux qu'il me reste,
je suis sur la réalisation d'un script qui doit :

- Renommer trois dossiers en .old dans C:\Application\projets\

* année_Interne.old
* année_Externe.old
* Mois.old


- Créer trois dossiers (portant le même nom que les dossiers en .old dans C:\Application\projets\

* année_Interne
* année_Externe
* Mois


- Copier le contenu de trois dossiers de "E:\Liv\Destination\" dans les trois dossiers que je viens de créer dans C:\Application\projets\

copier le contenu de "année_Interne"("E:\Liv\Destination\") dans "année_Interne"(C:\Application\projets\)
copier le contenu de "année_Externe"("E:\Liv\Destination\") dans "année_Externe"(C:\Application\projets\)
copier le contenu de "Mois"("E:\Liv\Destination\") dans "Mois"(C:\Application\projets\)


J'ai pas mal de message d'erreurs, je ne maitrise pas les variables, merci pour votre aide.


Mon script:

********************************************************

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Dim PLAQUE
Dim objFSO,fso,ObjFile,objFolder
Dim objShell
Plaque1 = "Interne"
Plaque2 = "Externe"
strComputer = "."
 
 
'Locatisation des dossier d'origine
 
sPath = "C:\Application\projets\"
 
'Localisation des dossiers dont le contenu doit être copiés dans les dossiers crées
 
sPathLiv = "E:\Liv\Destination\"
 
Sub Rename_Folder
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder "sPath"\année_" & Plaque1 & "" , ""sPath"\année_" & Plaque1 & ".old"
objFSO.MoveFolder "sPath"\année_" & Plaque2 & "" , ""sPath"\année_" & Plaque2 & ".old"
objFSO.MoveFolder "sPath"\Mois" , ""sPath"\Mois.old"
 
 
End sub
 
Sub Create_Folder
 
Dim oFSO,oFld 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFld=oFSO.CreateFolder ("C:\Application\projets\"année_" & Plaque1 & "")
Set oFld=oFSO.CreateFolder ("C:\Application\projets\"année_" & Plaque2 & "")
Set oFld=oFSO.CreateFolder ("C:\Application\projets\Mois")
 
end sub
 
Sub Copy_Folder
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFolder "sPathLiv"\" & strComputer & "\année_" & Plaque1 & "","sPath"\année_" & Plaque1 & ""'
oFSO.CopyFolder "sPathLiv"\" & strComputer & "\année_" & Plaque2 & "","sPath"\année_" & Plaque2 & ""
oFSO.CopyFolder "sPathLiv"\" & strComputer & "\Mois","sPath"\Mois"
 
End sub
 
 
'---------------------------
' Corps su script
'---------------------------
Rename_Folder
Create_Folder
Copy_Folder