Discussion :

[ptitsoleil87]

Bonjour,

je cherche désespéremment à lancer une commande DOS mais n'y arrive pas.
Les chemins pathPosteClient et emplacementClient ont des espaces et je sais que c'est ça qui pose problème mais je ne sais pas comment le résoudre.
Pouvez-vous m'aider s'il vous plait?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
cmde := '/c Robocopy "' + PChar(pathPosteClient) + '" "' + PChar(emplacementClient)+ '" *.* /xo /TEE /LOG:Synchro.log' ;
ShellExecute(0, nil, PChar('cmd.exe'), PChar(cmde), nil, SW_HIDE);

Merci, bonne journée.

[gaby277]

Bonjour,

Déja le début ça commence mal ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cmde := '/c Robocopy"'\

il vaudrait sans doute mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cmde := 'c:/Robocopy'

Et pour robocopy je pense qu'il vaudrait mieux le chemin complet a moins qu'il ne soit dans la variable path

cmde := '"c:/chemin complet de robocopy/robocopy.exe"'

Les quotes "" c'est obligatoire pour encadrer les chemins avec espace sans cela apres un espace dans le path c'est interprété comme le parametre suivant.

Apres on verra. Essaye deja de simplement lancer robocopy sans rien faire, puis tu t'attaqueras aux parametres.

[guillemouze]

essaye peut etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cmde := '/c "Robocopy \"' + pathPosteClient + '\" \"' + emplacementClient+ '\" *.* /xo /TEE /LOG:Synchro.log"' ;

[Andnotor]

Bien qu'inutile ici puisque robocopy est un exe, cmd /c est correct pour véritablement exécuter la commande. Sans cela, l'invité s'ouvre sans rien lancer
Sinon, rien de choquant si ce n'est... le fichier log. Robocopy est dans System32 et c'est certainement là qu'il tente d'écrire (le répertoire de travail n'étant pas spécifié) engendrant bien sûr un access denied.

ps: la conversion en PChar est inutile au remplissage de cmde.

[gaby277]

Bonjour,
Désolé pour ma réponse à coté de la plaque, j'ai perdu une occasion de me taire

[ptitsoleil87]

essaye peut etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cmde := '/c "Robocopy \"' + pathPosteClient + '\" \"' + emplacementClient+ '\" *.* /xo /TEE /LOG:Synchro.log"' ;

ok merci, ça ne marche pas mais merci pour votre aide.
Le robocopy se lance bien avec la ligne ci-dessus mais le chemin source est de destination est incorrect dans le fichier de synchro.log.
Pouvez-vous m'expliquer la logique? Pourquoi mettre cela \" par exemple?

Merci encore!

[ShaiLeTroll]

c'est pour échapper le " !

Sinon, il faut changer le nil dans lpDirectory par un chemin de travail

[guillemouze]

1erement, je pense que la réponse de ANDNOTOR est plus adéquate que la mienne. En effet, pourquoi lancer dans une fenetre cmd ?
En ce qui concerne ma proposition, je suppose que le switch /c attend la commande en 2eme paramètre, hors la tu lui en fournit 4 (robocopy, fichierSrc, fichierDst, et "*.*") ainsi que 3 autres switch (/xo, /TEE, et /LOG). Donc le fait de mettre des guillements autour de tout ca la détermine comme le seul paramètre du switch /c. Ensuite, les \" c'est pour mettre des " dans une chaine, mais la je me trompe peut être, ce n'est peut être pas la bonne façon d'escaper les guillemets

mais comme le dit ANDNOTOR :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
cmde := '"' + pathPosteClient + '" "' + emplacementClient+ '" *.* /xo /TEE /LOG:Synchro.log' ;
ShellExecute(0, nil, PChar('Robocopy.exe'), PChar(cmde), nil, SW_HIDE);

au detail près du fichier de log qu'il faut mettre ailleurs