El lenguaje simple atraviesa todos los archivos TXT de un determinado archivo y luego elimina todos los archivos recorridos.

.Biblioteca de shell de soporte

.Subrutina __startup_window_created

.Nombre de archivo de variable local, tipo de texto

.Archivo de variable local, tipo de texto, "0"

Directorio de variables locales, tipo de texto

. Variable local Recuento, entero

Cuadro de edición 1. Permitir varias líneas = verdadero

Cuadro de edición 1. Barra de desplazamiento = 2

Directorio = Explorar carpeta ("Por favor seleccione un directorio! " , )

Directorio = directorio + "\"

Nombre de archivo = Buscar archivo ("*.txt", )

. OK bucle La posición inicial (nombre de archivo ≠ "")

Cuadro de edición 1. Agregar texto (nombre de archivo, carácter #nueva línea)

Agregar miembro (archivo, nombre de archivo)

nombre de archivo = buscar archivo (, )

.determinar el final del bucle()

.if true(cuadro de mensaje("¿Se han eliminado estos archivos?", # botón if, ) = # botón sí)

Contar bucle primero (obtener miembro de la matriz (archivo), recuento)

Eliminar archivo (directorio + archivo [recuento])