Aos poucos estamos retornando ao normal, alguns links já foram inseridos assim como os banners de nossos parceiros, caso eu tenha deixado alguém de fora minhas sinceras desculpas, deixem um comentário que logo adicionamos novamente. Um abraço a todos que mesmo com a “zona” recente continuaram a nos prestigiar, informo que em breve teremos novas matérias relacionadas a asp e c#.
Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin tamanhoTotal := 0; memLista.Lines.Clear; ListarArquivos(edtDiretorio.Text, chkSub.Checked); Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var F: TSearchRec; Ret: Integer; TempNome: string; begin Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F); try while Ret = 0 do ...
Ola amigo estive navegando no blogblogs para encontrar alguns blogs interessantes e acabei por aqui.
ResponderExcluirEntão resolvi lhe oferecer um selo no meu blog http://booktecno.blogspot.com (Book Tecnologia) e assim possamos fazer uma troca de links.
Desejo sucesso abraços
Donizete
Se desejar parceria com outros blogs meus é so me avisar que add.