* Teste de apagar e renomear arquivo
* Autor: Antonio e Junior
* Em 13/11/2000

busca d DIR
escreve "Estou no diretório "
escreve d

escreve "Vou mudar para o diretorio \winvox"
dir troca "\winvox" &

escreve "Listagem dos subdiretorios"
busca a DIR "*.*"
@loop
    se a = "" desvia @fimDosArquivos
    escreve a
    busca a PROXIMO
    desvia @loop

@fimDosArquivos

dir troca d
escreve "Estou de novo no diretório "
escreve d


