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
Partager