TyttoSoft

DICAS | SOFTWARE | PROGRAMAÇÃO | OPORTUNIDADE



Pegar Nome, tamanho, caminho e extensão de um determinado arquivo!



  

Vamos Criar um novo Projeto, 
ao nosso projeto vamos adicionar um Memo
localizado na paleta Standard e um Button
localizado também na Paleta Standard.
Em nosso Button der um clique duplo ou 
vá no evento onclick escreva o código:
procedure TForm1.Button1Click(Sender: TObject);
Var Tamanho, Arquivo, Extensao, caminho:String;
 arqfile:File;
 OpenA:TOpenDialog;
begin
OpenA:=TOpenDialog.Create(self);
OpenA.Title:='Programação Para Iniciantes';
 if OpenA.Execute then
 begin
 AssignFile(arqfile, OpenA.FileName);
 reset(arqfile);
 Arquivo:=IntToStr(FileSize(arqfile));
// variavel recebe a extensão do arqui
 Extensao:='Extenção do Arquivo: '+ExtractFileExt(OpenA.FileName);
// variavel recebe o arquivo
 Arquivo :='Arquivo............: '+ExtractFileName(OpenA.FileName);
// variavel recebe o caminho do arquivo
 Caminho :='Caminho do Arquivo.: '+ExtractFileDir(OpenA.FileName);
// variavel recebe tamanho do arquivo
 Tamanho :='Tamanho do Arquivo.: '+IntTOStr(fileSize(arqfile))+'KB';
 Memo1.Lines.Add(Arquivo);
 Memo1.Lines.Add(Extensao);
 Memo1.Lines.Add(Caminho);
 Memo1.Lines.Add(Tamanho);
// Pegamos a data de criação do arquivo
 Memo1.Lines.Add('Criado em..........:'+
 FormatDateTime('dd/MM/yyyy', FileDateToDateTime(Fileage(OpenA.FileName))));
 Memo1.Lines.Add('------------------------');
 end;
 OpenA.Free;
end; 

Minha UNIT ficou assim:
 (*
          TyttoSoft
  WhatsApp/Telegram:79 9 88325288
  Site:www.tyttosoft.com.br
  Blog:www.blog.tyttosoft.com.br
  Programação Para iniciantes
  *)

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var Tamanho, Arquivo, Extensao, caminho:String;
 arqfile:File;
 OpenA:TOpenDialog;
begin
OpenA:=TOpenDialog.Create(self);
OpenA.Title:='Programação Para Iniciantes';
 if OpenA.Execute then
 begin
 AssignFile(arqfile, OpenA.FileName);
 reset(arqfile);
 Arquivo:=IntToStr(FileSize(arqfile));
 Extensao:='Extenção do Arquivo: '+ExtractFileExt(OpenA.FileName);
 Arquivo :='Arquivo............: '+ExtractFileName(OpenA.FileName);
 Caminho :='Caminho do Arquivo.: '+ExtractFileDir(OpenA.FileName);
 Tamanho :='Tamanho do Arquivo.: '+IntTOStr(fileSize(arqfile))+'KB';
 Memo1.Lines.Add(Arquivo);
 Memo1.Lines.Add(Extensao);
 Memo1.Lines.Add(Caminho);
 Memo1.Lines.Add(Tamanho);
 Memo1.Lines.Add('Criado em..........:'+
 FormatDateTime('dd/MM/yyyy', FileDateToDateTime(Fileage(OpenA.FileName))));
 Memo1.Lines.Add('------------------------');
 end;
 OpenA.Free;
end;
end.
  



19/10/2018 17:29 Delphi 1914


loading...

Copyright © TyttoSoft 2018 | Desenvolvido por www.TyttoSoft.com.br