Ir para conteúdo
Fórum Script Brasil
  • 0

Duvida MoveFile


C.J.

Pergunta

Fala Galera beleza, então to com um problema bem basico..

estou usando esse codigo para mover um arquivo para uma pasta, porem ele não esta compilando nem funcionando, alguém pode me dizer o porque? ou se souber outro metodo de mover arquivos me ajudem!

MoveFile (+Edit1.Text,'C:\destino');
tentei dessa forma também
MoveFile (' '+Edit1.Text,'C:\destino);

abraços

Editado por C.J.
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0
exemplo:

MoveFile('C:\MINHAPASTA\ARQUIVO1\DADOS.DAT', 'C:\MINHAPASTA\ARQUIVO2\');
MoveFile('"C:\MINHAPASTA\ARQUIVO1\DADOS.DAT"','C:\MINHAPASTA\ARQUIVO2\');

abraço

Fala Jhonas, então cara sim eu sei que é assim o funcionamento, o problema esta sendo interagir o edit1 no lugar do arquivo.

MoveFile(Edit1.Text,'C:\Destino');

então velho testei esse seu metodo e não funcionou..

abraços

Link para o comentário
Compartilhar em outros sites

  • 0
Fala Jhonas, então cara sim eu sei que é assim o funcionamento, o problema esta sendo interagir o edit1 no lugar do arquivo.

exemplo:

uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
var S : string;
begin
   if FileExists(Edit1.Text) then
      begin
         s := trim(Edit1.Text);
         while Pos('\', S) > 0 do
            delete(s,1,pos('\',s));

         // MOVER UM ARQUIVO PARA OUTRO LOCAL
         if MoveFile(PAnsiChar(Edit1.Text),'C:\'+ s) then
            Showmessage('MoveFile Sucesso')
         else
            Showmessage('MoveFile Falhou');


         // COPIAR UM ARQUIVO PARA OUTRO LOCAL
         {if CopyFile(PAnsiChar(Edit1.Text),PAnsiChar('C:\'+ s),true) then
            Showmessage('CopyFile Sucesso')
         else
            Showmessage('CopyFile Falhou'); }
      end
   else
      ShowMessage('O Arquivo Não Existe');

end;

Vamos supor que no edit1 esteja : 'C:\MINHA PASTA\ARQUIVO.DAT' ...

O programa vai verificar se o arquivo existe e depois move-lo para o drive C:\ ... com o mesmo nome

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...