DO WHILE ADIR(myNewNameb) < 1 ENDDO Do While FOpen(myNewNameb(1,1)) = -1 ENDDO *FCLOSE() here *Rename here