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+