sexta-feira, 3 de setembro de 2021

DICAS 3395 - WINDEV WEBDEV MOBILE - 15-9 Vamos pegar o numero de serial com fDriveInfo - Curso Gerenciamento Arquivos e Diretorios 8



https://youtu.be/KvtFy5M1RkI



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 15/09/2021

DICAS 3395 - WINDEV WEBDEV MOBILE - Vamos pegar o numero de serial com fDriveInfo - Curso Gerenciamento Arquivos e Diretorios 8







ASSUNTOS

00:00 Introducao
01:00 Vamos criar um botao para pegar o numero serial e entrar no codigo 
01:13 vamos criar uma variavel para pegar o serial
01:21 Vamos pegar o numero do serial 
01:43 Vamos mostrar a informacao do serial 
02:04 Vamos executar e mostrar o serial 

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

















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 10:00 do dia 24/06/2021

DICAS 3358 - WINDEV WEBDEV MOBILE - Modificar o Estilo Controle  e Gravar como um Estilo Webdev - Aula Top - CURSO WEBDEV 97 - estilo 1





ASSUNTOS














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              















Teste

Teste
teste