rotina para salvar aquivos

29/04/2016

boa tarde galera !

preciso de uma rotina que leia a extens�o do aquivo, selecionado e crie uma pasta com este nome para melhorar a organiza��o de um sistema de bkp. segue o que tentei fazer porem s� cai na no "else"

function TForm1.SalvarArq: string;
var
salvardtbase, salvarXML, Arq: string;
begin
salvardtbase := 'BaseDados' +'_'+ FormatDateTime('dd-mm-yyyy hh;mm', Now);
salvarXML := 'XML' +'_'+ FormatDateTime('dd-mm-yyyy hh;mm', Now);
Arq := ExtractFileExt('');

if Arq = '.FDB' then
begin
result := salvardtbase
end else
result := salvarXML;

end;

chamando assim

if not DirectoryExists(SalvarArq) then
ForceDirectories(SalvarArq);

Peterson

Curtir t�pico + 0

Responder

Posts

29/04/2016

Mateus Ribeiro

Bom dia!

O problema � que voc� n�o est� determinando a extens�o do dito cujo:

Arq := ExtractFileExt('');

A vari�vel ARQ est� sempre SEM VALOR, por isso cai no else...

Responder

Gostei + 0

29/04/2016

Natanael Ferreira

Altere sua fun��o recebendo o arquivo como par�metro:

function TForm1.SalvarArq(Arquivo: string): string;
var
  salvardtbase, salvarXML, Arq: string;
begin
  salvardtbase := 'BaseDados' + '_' + FormatDateTime('dd-mm-yyyy hh;mm', Now);
  salvarXML := 'XML' + '_' + FormatDateTime('dd-mm-yyyy hh;mm', Now);

  Arq := ExtractFileExt(Arquivo);

  if UpperCase(Arq) = '.FDB' then
    result := salvardtbase
  else
    result := salvarXML;
end;

Acrescente um OpenDialog e chame a fun��o assim:

var
  Arquivo, TipoPasta, CaminhoCompleto: string;
begin
  if OpenDialog1.Execute then
  begin
    Arquivo := OpenDialog1.FileName;
    TipoPasta := SalvarArq(Arquivo);
    CaminhoCompleto := ExtractFilePath(Arquivo) + TipoPasta;

    if not DirectoryExists(CaminhoCompleto) then
      ForceDirectories(CaminhoCompleto);
  end;
end;

Responder

Gostei + 0

02/05/2016

Peterson

ola essa foi a forma que consegui, obrigado pelo help, afinal foi tiquim de um e tiquin de outro.

function TForm1.SalvarArq(Origem, Destino: string): string;
var
      Arq, Copia : string;
begin
      Arq     := ExtractFileExt(Origem);
      Copia   := copy(Arq,pos('.',Arq)+1,length(Arq));      // para n�o copiar o ".", SOMENTE EXTENSAO DO ARQUIVO
      Result  := Destino + edtNomeClie.Text +'\'+ Copia  +'_'+ FormatDateTime('dd-mm-yyyy hh;mm', Now)+ '\';

      if not DirectoryExists(Result) then
      ForceDirectories(Result);
 end;

// CHAMANDO A FUN��O 

Caminho := SalvarArq(edtLocaldoArquivo.Text, edtSalvarArquivo.Text);

//Onclick

Memobkp.Lines.Add('Backup salvo em ' + '- ' + caminho + edtNomedoArquivo.Text);

Responder

Gostei + 0