Duvida MoveFile

[C.J.]

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 Julho 8, 2011 por C.J.

[Jhonas]

exemplo:

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

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

abraço

[kawyn]

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

[C.J.]

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

[Jhonas]

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

[C.J.]

obrigado, irei testar e depois falo se funcionou