Tamanho do arquivo
03/09/2006
0
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]
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
Curtir tópico
+ 0
Responder
Posts
06/09/2006
Rodc
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); }
Responder
Clique aqui para fazer login e interagir na Comunidade :)