Windev21 Aulas,Estudos e Desenvolvimento: 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")