Cómo cambiar el nombre del archivo en un lenguaje sencillo

. Versión 2

. Subrutina _button1_clicked

. Ruta de la variable local, texto

ruta = buscar directorio de tiempo de ejecución ()

. tomar texto a la derecha (ruta, 1) ≠ "\")

ruta = ruta + "\"

.Finalizar si es verdadero

.si es verdadero (archivo rename(ruta + "123.txt", ruta + "321.exe") = true)

message box("¡Archivo renombrado correctamente!", 0,)

return( )

. Finalizar si es verdadero

Cuadro de mensaje ("Error al cambiar el nombre del archivo", 0,)

.