segunda-feira, 8 de fevereiro de 2016

Curso WinDev - Arquivos - 001 - Listar Arquivos de um Diretório e Mostrar na Tabela









Video no youtube



http://doc.windev.com/en-US/?3036050&name=fSelectDir
http://doc.pcsoft.fr/fr-FR/?3036050&name=frepselecteur_fonction

http://doc.windev.com/en-US/?3036058&name=flistfile_function
http://doc.pcsoft.fr/fr-FR/?3036058&name=flistefichier_fonction

Nessa aula vou ensinar como listar os arquivos de um diretorio e mostrar na tabela

This class will teach you how to list the files in a directory and display the table

Cette classe va vous apprendre comment lister les fichiers dans un répertoire et afficher la table

WinDev  


//pesquisa diretorio
sRépertoire est une chaîne
sRépertoire = fRepSélecteur("", "")
SAI_DIRETORIO=sRépertoire

//ingles
//sRépertoire_ is string
//sRépertoire_ = fSelectDir("", "")
//SAI_DIRETORIO=sRépertoire_



PROCEDURE prd_VerificaPasta(PastaVerifica is string)
ADirectory is string
ListaArquivos is Structure
  caminho is string
END
Listagem is ListaArquivos
arrListaArquivos is array of ListaArquivos
ADirectory = ""
ADirectory = fListDirectory(PastaVerifica)
ArrayDeleteAll(arrListaArquivos)
FOR EACH STRING Listagem.caminho OF ADirectory SEPARATED BY CR
 ArrayAdd(arrListaArquivos,Listagem)
END

RESULT arrListaArquivos
//--------------------------------------------------------------------------
PROCEDURE prd_VerificaArquivo(_Caminhoarquivo is string)

sTipoArquivo  is string = fExtractPath(_Caminhoarquivo,fExtension);
_Caminho      is string = fExtractPath(_Caminhoarquivo,fDrive+fDirectory);
nomedoArquivo is string = fExtractPath(_Caminhoarquivo,fFileName);

LOOP
 IF fFileExist(_Caminhoarquivo) = True THEN
     BREAK;
 ELSE
  Info("Atenção","O Arquivo "+nomedoArquivo+" com a extensão "+Upper(sTipoArquivo)+" não foi localizado!","O Arquivo: "+nomedoArquivo+" deve está no seguinte local: "+_Caminho,"Deixe esta mensagem na tela e coloque-a na referida pasta");
 END
END


TableDeleteAll(TABLE_lista_arquivos)

s_arquivos_todos is string=fListFile(SAI_DIRETORIO+"*.*")
s_arquivo_individual is string=""
FOR EACH STRING s_arquivo_individual OF s_arquivos_todos SEPARATED BY CR
    s_nome_arquivo is string=fExtractPath(s_arquivo_individual,fFileName+fExtension)
    s_tamanho_arquivo is string=fSize(SAI_DIRETORIO+s_nome_arquivo)    dS_data_arquivo is Date=fDate(SAI_DIRETORIO+s_nome_arquivo)   
    hS_hora_arquivo is Time=fTime(SAI_DIRETORIO+s_nome_arquivo)        TableAddLine(TABLE_lista_arquivos,s_nome_arquivo,s_tamanho_arquivo,dS_data_arquivo,hS_hora_arquivo)   
END
TableSort(TABLE_lista_arquivos,"-TABLE_lista_arquivos.COL_Data","-TABLE_lista_arquivos.COL_Hora")


//em frances
TableSupprimeTout(TABLE_lista_arquivos)
s_arquivos_todos_f est chaîne=fListeFichier(SAI_DIRETORIO+"*.*")
s_arquivo_individual_f est chaîne=""
POUR EACH CHAÎNE s_arquivo_individual_f DE s_arquivos_todos_f SEPAREE PAR RC
    s_nome_arquivo est chaîne=fExtraitChemin(s_arquivo_individual_f,fFichier+fExtension)
    s_tamanho_arquivo est chaîne=fTaille(SAI_DIRETORIO+s_nome_arquivo)
    dS_data_arquivo est une Date=fDate(SAI_DIRETORIO+s_nome_arquivo)   
    hS_hora_arquivo est une Heure=fHeure(SAI_DIRETORIO+s_nome_arquivo)
    TableAjouteLigne(TABLE_lista_arquivos,s_nome_arquivo,s_tamanho_arquivo,dS_data_arquivo,hS_hora_arquivo)   
FIN
TableTrie(TABLE_lista_arquivos,"-TABLE_lista_arquivos.COL_Data","-TABLE_lista_arquivos.COL_Hora")


























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 - 


Nenhum comentário:

Postar um comentário

Teste

Teste
teste