Execution commande dos via vbs

Version imprimable

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:D.

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

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

29/04/2016, 14h17
l_autodidacte

Remplace objFolder.Path par objFolder.ShortPath

Citation:

Envoyé par l_autodidacte

Remplace objFolder.Path par objFolder.ShortPath

Code:

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

29/04/2016, 15h09
l_autodidacte

Et si tu fais : chemin2 = fsoFolder.GetFolder(objFolder.Path).ShortPath ?
29/04/2016, 15h17
julesdub

Cela ne change rien... je continu mes test de mon côté si vous avez des idées n’hésitez pas, merci :?
29/04/2016, 17h28
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.
02/05/2016, 11h12
julesdub

Merci pour l'aide fournit mais cela n'a pas fonctionné donc pour détourner cette erreur j'ai fais un script qui parcoure toute l’arborescence du dossier principal et qui renomme à chaque fois qu'il le croise le fichier en question en enlevant les espaces, je vais pouvoir continuer d'avancer sur mon script qui donne les droits ntfs, encore merci a vous.

Cordialement,

Jules
02/05/2016, 11h26
hackoofr

Citation:

Envoyé par julesdub

Merci pour l'aide fournit mais cela n'a pas fonctionné donc pour détourner cette erreur j'ai fais un script qui parcoure toute l’arborescence du dossier principal et qui renomme à chaque fois qu'il le croise le fichier en question en enlevant les espaces, je vais pouvoir continuer d'avancer sur mon script qui donne les droits ntfs, encore merci a vous.
Cordialement,
Jules

Pouvez-vous nous poster le script complet ??

Voici le script pour renommer les dossiers (je suis partis d'un script qui permettait d'afficher le nombre de sous-dossiers dans chaque repertoire :

Code:

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
Option explicit
Dim stRepInital 
Dim oFSO,oFld,oSubFolder,FD,nomfichier
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRepInital = "C:\Users\jdubillot\Desktop\sd"
ParcoursRep stRepInital
 
 
 
Sub ParcoursRep (stRep )
	If oFSO.FolderExists(stRep) Then
	Set oFld = oFSO.GetFolder(stRep)
		if oFld.subFolders.count > 0 then 'Teste la presence de sous-dossiers
			For each oSubFolder in oFld.subFolders
				nomfichier = Right(oSubFolder,30)
				if (nomfichier="FICHE DE REGLAGE - INSTRUCTION") Then
					Set FD = oFSO.GetFolder(oSubFolder)				
					FD.Name = "FRItemporaireJD"
				End If
				ParcoursRep oSubFolder.Path 'appel récursif de la procédure
			Next
		end if
	End If
end sub
 
msgbox("Renommage terminé")