Tamanho do arquivo

Delphi

03/09/2006

Eu estou me formando no curso técnico e estou criando um sistema gerenciador de monografias.
Preciso de alguma forma fazer com que meu sistema assim que eu clique em um botão abra um OpenDialog e ao selecionar um arquivo ele adicione o diretório, o nome, a extensão e o tamanho do arquivo, mas eu ainda não consegui fazer o sistema retornar o nome do arquivo. Meu código está da seguinte forma:

[i:8ded572b08]void __fastcall TForm4::Button3Click(TObject *Sender)
{ AnsiString arqdir;
OpenDialog2->Execute();
arqdir=ExtractFilePath(OpenDialog2->FileName)+ExtractFileName(OpenDialog2->FileName);
DBListBox1->Items->Add(arqdir);
}[/i:8ded572b08]

Se alguém puder me ajudar, agradeço[/i]


Herbert Vianna

Herbert Vianna

Curtidas 0

Respostas

Rodc

Rodc

03/09/2006

Faça include de [b:f61c46eaad]sys/stat.h[/b:f61c46eaad] e tente o código abaixo:
void __fastcall TForm4::Button3Click(TObject *Sender) 
{ 
    AnsiString dir, nome, extencao, tamanho; 
    struct stat results;
    double fSize;

    OpenDialog2->Execute(); 
    dir = ExtractFilePath(OpenDialog2->FileName); 
    nome = ExtractFileName(OpenDialog2->FileName);
    extensao = ExtractFileExt(OpenDialog2->FileName);
    
    if (stat(OpenDialog2->FileName.c_str(), &results) == 0)
        fSize = results.st_size;
    else
        fSize = 0;

    tamanho = FloatToStr(fSize) + " bytes";

    DBListBox1->Items->Add(arqdir); 
}



GOSTEI 0
Herbert Vianna

Herbert Vianna

03/09/2006

O código funcionou, muito obrigado.


GOSTEI 0
POSTAR