sexta-feira, 3 de setembro de 2021

DICAS 3394 - WINDEV WEBDEV MOBILE - 8-9 Vamos mostrar espaco total e livre dos discos com fDriveInfo - Curso Gerenciamento Arquivos e Diretorios 7


https://youtu.be/-ObnMt2sris




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 07:30 do dia 08/09/2021

DICAS 3394 - WINDEV WEBDEV MOBILE - Vamos mostrar espaco total e livre dos discos com fDriveInfo - Curso Gerenciamento Arquivos e Diretorios 7









ASSUNTOS

00:00 Introducao
00:48 Vamos aumentar o looper
01:04 vamos criar um stc tamanho dentro do looper 
01:28 vamos entrar no codigo do looper 
01:35 vamos criar uma varialve - espaco disco
01:44 vamos ver o espaco livre no drive
02:41 vamos ver o total de espaco do drive
03:29 vamos acrescentar o espaco de disco no looper 
03:45 vamos attribuir o stc no looper 
04:08 Vamos executar e mostrar 
Proxima Aula : Pegar o numero do serial do hd 

---------------- Codigo Fonte
------------ Dentro do looper 
// 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


--------------- Indice Curso Arquivos

WinDev - Arquivos - 001/... Lista Arquivos - fListFile
WinDev - Arquivos - 002/... Existe Diretório - Verificar Se Existe - fDirectoryExist
WinDev - Arquivos - 003/... Criar Diretorio - FmakeDir
WinDev - Arquivos - 004/... Extrair Dados Arquivos - Extrair Dados - Fextractpath
WinDev - Arquivos - 005/... Renomear Arquivos - FRename
WinDev - Arquivos - 006/... Existe Diretório - Verificar Se Existe - FDirExist
WinDev - Arquivos - 007/... Existe Arquivo - FFileExist
WinDev - Arquivos - 008/... Copiar Arquivos - FcopyFile - >
WinDev - Arquivos - 009/... Adicona Texto num arquivo - FAddText ( )
WinDev - Arquivos - 010/... Espaco Diretorio - FDirSize/ LengthtoString
WinDev - Arquivos - 011/... Informações hd - FDriveInfo -
WinDev - Arquivos - 012/... Elimina Arquivos - FDelete -
WinDev - Arquivos - 013/... Drive está Ok - FDriveReady -
WinDev - Arquivos - 014/... Imagen Procura - FImageSelect
WinDev - Arquivos - 015/... Abrir-Modificar-Gravar-Fechar fOpen/fReadLine/fClose/fSaveText
WinDev - Arquivos - 016/... Lista Discos - FListDisk
WinDev - Arquivos - 017/... Lista Diretorio - FListDirectory
WinDev - Arquivos - 018/... Ler Arquivo - FLoadText
WinDev - Arquivos - 019/... Ler Arquivo e Colocar Tabela - FLoadText
SEPARAR NOME ARQUIVO - - ARQUIVOS - 020 - AULA 1189
PROCURAR ARQUIVO - SELECT - ARQUIVO 021 - AULA 1190
DIRETORIO - LE ARQUIVOS - ARQUIVO 022- AULA 1268
Criar Diretorio - DICAS 1738 - PUBLICA - WINDEV ARQUIVOS 23 - FMakeDir - 
fDirectoryExist - DICAS 1740 - PUBLICA - WINDEV ARQUIVOS 24 - 
fSelectDir - SELECIONA DIRETORIO - DICAS 1742 - PUBLICA - WINDEV ARQUIVOS 26 - 
fDelete - ELIMINA ARQUIVO - DICAS 1743 - PUBLICA - WINDEV ARQIVOS 27 - 
fExtractPath - Extrair dados arquivos - DICAS 1744 - PUBLICA - WINDEV ARQIVOS 28 - 
-------------------- curso gerenciamento arquivos              






ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html





Postado por às
Marcadores:

Nenhum comentário:

Postar um comentário

Assinar: Postar comentários (Atom)

Teste

Teste
teste