// Dentro do Looper - initializing loop_discos
sLista_Discos is string="" // vamos criar uma variavel lista discos - sLista_Discos
sLista_Discos=fListDisk() // vamos chamar a funcao flistdisk e adicionar na variavel // Vai Retornar "C:" + CR + "D:" + ...
// vamos dar um for each para varrer a string
FOR EACH STRING sDisco_individual IN sLista_Discos SEPARATED by CR
sEspaco_disco is string="" // vamos criar uma variavel
sEspaco_disco="Livre["+LengthToString(fDriveInfo(sDisco_individual,fdFreeSpace),sizeGB)+"]"+CR // vamos ver o espaco livre no drive //
sEspaco_disco+="Espaco["+LengthToString(fDriveInfo(sDisco_individual,fdTotalSpace),sizeGB)+"]"+CR // vamos ver o total de espaco do drive

// vamos acrescentar o espaco de disco no looper
// LOOP_DISCOS.AddLine(sDisco_individual,sEspaco_disco)
LOOP_discos.AddLine(sDisco_individual,sEspaco_disco)
END

Procedure lista_diretorio()
TableDeleteAll(TABLE_diretorio) // Limpando a tabela -
sLista_diretorio is string=""
sLista_diretorio=fListDirectory(EDT_Nome_diretorio,frNotRecursive) // // vamos chamar a funcao lista diretorio
FOR EACH STRING sNome_diretorio_individual IN sLista_diretorio SEPARATED by CR // vamos fazer um for each para ler o conteudo do retorno dos diretorios
sAtributo is string=fAttribute(sNome_diretorio_individual) // vamos pegar o atributo do diretorio
IF sAtributo="D" THEN // so vamos mostrar no diretorio os que realmente sao diretorios
TableAddLine(TABLE_diretorio,sNome_diretorio_individual) // //vamos adicionar o diretorio na tabela
END
END
TABLE_ARQUIVOS.DeleteAll() // vamos limpar tabela arquivos
sNome_diretorio is string=ExtractString(EDT_Nome_diretorio,1,"\",FromEnd) // vamos pegar nome diretorio selecionado
IF sNome_diretorio<>"" AND sNome_diretorio[3 TO 3]<>"" THEN // se nome diretorio for diferente de branco e a 3a posicao tambem for diferente branco

// vamos chamar a rotina mostra_arquivos

mostra_arquivos()


END

Procedure mostra_arquivos()

TABLE_ARQUIVOS.DeleteAll() // TableDeleteAll(TABLE_ARQUIVOS) // vamos apagar os dados da tabela arquivos
sArquivos is string=fListFile(EDT_Nome_diretorio+"\*.*") // vamos pegar os arquivos do diretorio
FOR EACH STRING sArquivo_individual IN sArquivos SEPARATED by CR // vamos varrer o retorno dos arquivos -
TABLE_ARQUIVOS.AddLine(sArquivo_individual) // Vamos adicionar na tabela o arquivo
//tableaddline(TABLE_ARQUIVOS,sArquivo_individual)
END