¿Cómo utilizar Eliminar directorio para recorrer los subdirectorios de un directorio en lenguaje sencillo?

.¿Versión? ¿Subrutina? ___Iniciar ventana_creada

.¿Variable local? Catálogo mc,?Tipo de texto

.¿Variable local? Sí A,?Tipo de texto

Directorio mc?Directorio para buscar archivos? ("E：/000/")

¿Es A? ¿Tomar el lado izquierdo del texto? (directorio mc,?1)

.¿Si es cierto? (es A?=? "A")

¿Eliminar directorio?(directorio mc)

. Si es verdadero, finalice

. ¿Subrutina? Archivo de búsqueda de directorio

. ¿Parámetros? Directorio, tipo de texto

.¿Variable local? Nombre de archivo, tipo de texto

Directorio =?Seleccionar? (Tome el ?(Directorio, 1)=?"\" en el lado derecho del texto,?Directorio,?Directorio? ?"\")

Nombre de archivo? =?¿Buscar archivo? (¿directorio? ? "\*. *", ? # subdirectorios)

. ¿Determinar el primer archivo en el bucle? (¿nombre de archivo? ≠? "")

.¿Si es cierto? (Nombre de archivo ≠ ". " y Nombre de archivo ≠ "...")

¿Salida de depuración? (Nombre del archivo del directorio)

.End if true

Nombre del archivo = ?Buscar archivo ?(,? #subdirectorios)

.¿Estás seguro de que el bucle es ¿encima? ()