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
| Option Explicit
Dim oXL, OfSC, sXL, UUID, MUUID, DUUID, oFSO
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oXL = WScript.CreateObject("EXCEL.application")
oXL.Visible = false
sXL = "c:\boulot\uuid.xlsx"
MUUID = "c:\boulot\"
oXL.Workbooks.Open sXL
oXL.ActiveSheet.Range("A2").Activate
UUID = oXL.ActiveSheet.Range("A2").Value
while UUID <> ""
DUUID = MUUID & UUID
if oFSO.folderexists ( DUUID ) then
oFSO.deletefolder DUUID
oXL.ActiveCell.Offset(0,1).Activate
oXL.ActiveCell.Value = " Répertoire supprimé "
oXL.ActiveCell.Offset(0,-1).Activate
else
oXL.ActiveCell.Offset(0,1).Activate
oXL.ActiveCell.Value = " Répertoire inexistant "
oXL.ActiveCell.Offset(0,-1).Activate
end if
oXL.ActiveCell.Offset(1,0).Activate
UUID = oXL.ActiveCell.Value
wend
oXL.save
oXL.Application.Quit |
