1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| for each objFolder in subfolders
chemin2 = objFolder.Path
set shl = createobject("wscript.shell" )
chemin_3D = """" & chemin2 & "\3D"""
chemin_reglage = """" & chemin2 & "\FICHE DE REGLAGE - INSTRUCTION"""
shl.run "command /c cacls " & chemin_reglage &" /E /T /C /P utilisateur:R > c:\ip.txt",0,true
shl.run "command /c cacls "& chemin2 &" /E /P utilisateur:R > c:\ip.txt",0,true
shl.run "command /c cacls "& chemin_3D &" /E /T /C /P utilisateur:R > c:\ip.txt",0,true
shl.run "command /c cacls "& chemin2 &"\3D\ARCHIVE /E /T /C /P utilisateur:N > c:\ip.txt",0,true
shl.run "command /c cacls "& chemin2 &"\PLANS /E /T /C /P utilisateur:R > c:\ip.txt",0,true
next |
Partager