My little test script don't stop...

If you made a script you can offer it to the others here, or ask help to improve it. You can also report here bugs & problems with existing scripts.
Post Reply
boyerf
Posts: 46
Joined: 2009-07-20 18:24:33

My little test script don't stop...

Post 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.
antp
Site Admin
Posts: 9652
Joined: 2002-05-30 10:13:07
Location: Brussels
Contact:

Post 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... ;)
boyerf
Posts: 46
Joined: 2009-07-20 18:24:33

Post 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 ! ;)
Post Reply