Discussion :

[neuneu1]

bonjour

j'ai un petit probleme :

lorsque je passe un code vbs en direct , ca marche bien(dans le cas present efface un fichier en le nomant directement dans le script

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
 
procedure TForm1.Button1Click(Sender: TObject);
 var
 c:TScriptControl;
  begin
c := TScriptControl.Create(Self);
try
c.Language := 'VBScript';
c.AddCode('Set oFSO = CreateObject( "Scripting.FileSystemObject")');
c.AddCode ('oFSO.DeleteFolder   "C:\Profils\ototo",True  ');
 
 
finally
c.Free;
end;

par contre avec une variable
ben ca marche pas

fin d instruction demander

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
 
procedure TForm1.Button1Click(Sender: TObject);
 var
 c:TScriptControl;
  begin
c := TScriptControl.Create(Self);
try
c.Language := 'VBScript';
c.AddCode('Set oFSO = CreateObject( "Scripting.FileSystemObject")');
c.AddCode ('oFSO.DeleteFolder   "C:\Profils\"' +   edit1.text + ',True  ');
 
 
finally
c.Free;
end;

et je ne vois pas comment y remedier


merci

a+

[kevinou55]

ta double cote fermante n'est pa mal placée par hasard ??
Remplace

Code :

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

1
2
 
c.AddCode ('oFSO.DeleteFolder   "C:\Profils\"' +   edit1.text + ',True  ');

par

Code :

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

1
2
 
c.AddCode ('oFSO.DeleteFolder   "C:\Profils\' +   edit1.text + '",True  ');

Là tes deux chaines seront identiques

[neuneu1]

Salut

merci c 'etait ca

merci pour la rapidite et reponse

a+