Probleme d'exécution de script VB et Delphi
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:
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:
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+
