PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → espaco total e livre dos discos com fDriveInfo - WinDev
espaco total e livre dos discos com fDriveInfo - WinDev
Débuté par amarildo, 08 sep. 2021 12:16 - Aucune réponse
Membre enregistré
535 messages
Popularité : +14 (14 votes)
Posté le 08 septembre 2021 - 12:16
https://windevdesenvolvimento.blogspot.com/2021/09/dicas-3394-windev-webdev-mobile-vamos.html

No Repositorio Fonte do Projeto

https://repository.windev.com/resource.awp…

// 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


Video