My little test script don't stop...

[boyerf]

Hello,

I am a beginner in Pascal script language and i have a first problem.
Why this small script don't stop on execution ?

I research on the net the 'Innerfuse Pascal Script Documentation', but i can't find anything...

Can you help me ?

Thank !
François

Code: Select all

(* Test Script *)
program Synchro;
var
LstDir: TStringList;
compteur: String;

begin
  LstDir := TStringList.Create;
  LstDir.Text := ListDirectory('Y:\Video\Films','*.*');
  compteur := FloattoStr(LstDir.Count);
  showmessage(compteur+' lignes');
  LstDir.Free;
end.

[antp]

What do you mean by "don't stop" ?
The script is executed one time for each selected movie

PS: je suis francophone, au cas où c'est plus facile...

[boyerf]

Damned....
I haven't see the range of the selected movie...

Traduction Française : Je suis un gros blaireau sur ce coup ! Merci Antp !