[Gambas-user] PVRec program (Rob)

[Rob]

On Wednesday 03 September 2003 10:47, Nelson Ferraz wrote:
> > DO WHILE Exist(Application.home &/ "pvrusb" & Format(i,
> > "000") & ".mpg")
> DO WHILE Exist(DefaultFilename(i))
>   i = i + 1
> LOOP
> RETURN DefaultFilename(i)
>
> PRIVATE FUNCTION DefaultFilename(i as INTEGER) AS STRING
>   RETURN Application.Home &/ "pvrusb" & Format(i, "000") &
> ".mpg" END

Thanks, these are both better than my code.  I don't suppose 
either of you has one of those dongles to tell me how PVRec 
works for someone other than me; lots of people have downloaded 
it but I never got any feedback ;)

Rob