Ir para conteúdo
  • Cadastre-se

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

Conheça as novidades de 2019 para o BABOO e Fórum do BABOO

Bruno Deuner

Mover arquivos de um diretorio selecionado para outro - Delphi 7

Mensagem Recomendada

não estou conseguindo não sei porque

quero que ao clicar no botao abra uma aba para selecionar o diretorio e quando selecionado mova-o para outro (arquivos de programa por exemplo)

entao o programa vai pedi aonde que esta a pasta e movelo para arquivos de programa

 

quem ajudar agradeço

Compartilhar este post


Link para o post
Compartilhar em outros sites

Coloca 2 edits 3 buttons.

No button 1 usa o opendialog.execute e manda salvar o caminho do arquivo no edit 1.

No button 2 usa o comando SelectDirectory e salva o caminho do edit 2.

No button 3 usa o comando MoveFile(edit1.text, edit2.text + (edit2.text + ExtractFileName(edit1.text)).

 

ps: %ProgramFiles%

Editado por JulioCesarSF

''

Compartilhar este post


Link para o post
Compartilhar em outros sites

eu uso essa função para mover arquivos

 

 

Procedure FileCopy( Const sourcefilename, targetfilename: String );VarS, T: TFileStream;BeginS := TFileStream.Create( sourcefilename, fmOpenRead );tryT := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );tryT.CopyFrom(S, S.Size ) ;finallyT.Free;end;finallyS.Free;end;End;

<%X@nBuRzUm%>

=========================

* nós somos consequência do que pensamos *

** mensagem 100% de Eletrôns recicláveis **

*** Transformando pensamentos em bits ***

Compartilhar este post


Link para o post
Compartilhar em outros sites

×