[Gambas-user] PVRec program (Rob)

R Onstenk ronstk at ...239...
Wed Sep 3 15:48:13 CEST 2003


PUBLIC FUNCTION GetNextDefaultFilename() AS String
  DIM i AS Integer
  i = 0
  DO WHILE Exist(Application.home &/ "pvrusb" & i & ".mpg")
    i = i + 1
  LOOP
  RETURN Application.home &/ "pvrusb" & Format(i, "000") & ".mpg"
END

Hum, if 1'st file is saved as pvrusb000.mpg then DO WHILE can not find it,
So the new one can be saved as pvrusb000.mpg.

I think a better job wil be: 
DO WHILE Exist(Application.home &/ "pvrusb" & Format(i, "000") & ".mpg")

-----
Ron





More information about the User mailing list