Page 1 of 1

My little test script don't stop...

Posted: 2009-07-20 18:29:14
by 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.

Posted: 2009-07-21 10:03:51
by 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... ;)

Posted: 2009-07-23 22:56:27
by 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 ! ;)