//Lista Diretorio e subdiretorios
TableDeleteAll(TABLE_lista_1)
_arquivos, _resultado_lista are strings
_resultado_lista = fListFile(EDT_diretorio+EDT_arquivo, frRecursive + frInterruptible)

FOR EACH STRING _arquivos OF _resultado_lista SEPARATED by CR
TableAdd(TABLE_lista_1, _arquivos)
END

//Lista Somente Diretorio
TableDeleteAll(TABLE_lista_1)
_arquivos, _resultado_lista are strings
_resultado_lista = fListFile(EDT_diretorio+EDT_arquivo, frNotRecursive + frInterruptible)

FOR EACH STRING _arquivos OF _resultado_lista SEPARATED by CR
TableAdd(TABLE_lista_1, _arquivos)
END

//Lista Diretorio e subdiretorios E COLOCA TRACE
_arquivos, _resultado_lista are strings
_resultado_lista = fListFile(EDT_diretorio+EDT_arquivo, frRecursive + frInterruptible)

FOR EACH STRING _arquivos OF _resultado_lista SEPARATED by CR
Trace(_arquivos)
END