¿Cómo nombrar una carpeta en un lenguaje sencillo?

.¿Versión? ¿Subrutina? Click_button1__

.¿Variable local? Carpeta,?Tipo de texto

Carpeta=?Editbox2.Contents

Editbox1.Contents =?Obtener la?(carpeta en el lado derecho del texto,?Obtener la longitud del texto?( carpeta )? - (carpeta)? ¿Buscar texto al revés? (carpeta,? "\",? ,? Falso))

Cambiar como quieras...