Discussion :

[julesdub]

Bonjour, je suis en train de faire un script qui gère les droits ntfs d'utilisateurs sur des dossiers mais j'ai un problème, l'un des dossiers contient des espaces dans son nom et la commande ne veux pas s’exécuter, j'ai essayé le double quote mais cela ne fonctionne pas non plus, si vous avez des solutions a me proposer je suis preneur.

Voici un extrait de mon code la seule commande qui plante est celle avec la fiche de reglage pour les autres cela fonctionne.

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

[l_autodidacte]

Remplace objFolder.Path par objFolder.ShortPath

[julesdub]

Remplace objFolder.Path par objFolder.ShortPath

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
Set fsoFolder = CreateObject("Scripting.FileSystemObject")
    Set folder = fsoFolder.GetFolder(suite)
    Set subfolders = folder.SubFolders
 
	for each objFolder in subfolders
 
		chemin2 = objFolder.ShortPath
 
                set shl = createobject("wscript.shell" )
 
		chemin_3D = """" & chemin2 & "\3D"""
 
		Dim chemin_reglage
 
		chemin_reglage = """" & chemin2 & "\FICHE DE REGLAGE - INSTRUCTION"""
 
		shl.run "command  /c cacls " & chemin_reglage &"  /E /T /C /P jdubillot:R > c:\ip.txt",0,true
		shl.run "command  /c cacls "& chemin2 &" /E /P jdubillot:R > c:\ip.txt",0,true
                shl.run "command  /c cacls "& chemin_3D &" /E /T /C /P jdubillot:R > c:\ip.txt",0,true
		shl.run "command  /c cacls "& chemin2 &"\3D\ARCHIVE /E /T /C /P jdubillot:N > c:\ip.txt",0,true
		shl.run "command  /c cacls "& chemin2 &"\PLANS /E /T /C /P jdubillot:R > c:\ip.txt",0,true
 
         next

Cela m'affiche "argument ou procédure d'appel incorrect", cela n'a rien changé :c

[l_autodidacte]

Et si tu fais : chemin2 = fsoFolder.GetFolder(objFolder.Path).ShortPath ?

[julesdub]

Cela ne change rien... je continu mes test de mon côté si vous avez des idées n’hésitez pas, merci

[l_autodidacte]

A quel niveau(ligne) se produit l'erreur après la dernière modification ?
Quel est le message d'erreur ?

Puis là où il y a chemin2, enlève les guillemets pour n'en laisser qu'un au début et un à la fin tel que : chemin_3D = chemin2 & "\3D" et aussi
chemin_reglage = chemin2 & "\FICHE DE REGLAGE - INSTRUCTION".

Cette dernière ligne peut être changée en :chemin_reglage = chemin2 & "\FICHE_DE_REGLAGE_INSTRUCTION" pour éviter d'ajouter au problème d'espace dans le chemin.