Escribir archivos en un lenguaje sencillo

Porque no sé en qué archivo escribir. Puede consultar el siguiente código: escriba el contenido en el cuadro de edición directamente en la carpeta especificada.

Se hace clic en la subrutina _Guardar_

Número de archivo de variable local, entero

Si (contenido del cuadro de edición 1 ≠"")

Archivo nombre del cuadro de diálogo común 1 = buscar directorio de ejecución () "\lrc\ " Contenido del cuadro de edición 1 "lrc"

Número de archivo = Abrir archivo (nombre de archivo del cuadro de diálogo común 1, # Reescribir, # ilimitado)

Escribir texto (número de archivo, contenido del cuadro de edición 2)

Cerrar archivo (número de archivo)