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