Movendo arquivos

Lucas, tenta colocar no destino, o caminho completo do arquivo: Pasta + Nome do arquivo.extensão.

Att,

Marcos

Não deu certo amigo , :(

Alguem ? :s

Lucas, faça um teste, por favor: Coloque um breakpoint na linha do MoveFile e espere. Depois tente mover o arquivo manualmente.
Se conseguir mover o arquivo, realmente você tem um problema no seu fonte. Se não conseguir mover, o arquivo pode ainda estar aberto.

Att,

Marcos

Obrigado Marcos, manualmente ele move mesmo, o problema é que eu não consigo ver onde eu errei

Lucas, creio que o problema esteja no seu fonte mesmo. Teria como você postar o conteúdo de um arquivo texto seu, para que eu possa analisar?

O conteúdo do arquivo de texto está assim:
aaa
204
ALERTA: Cupom Fiscal já regis65465rado no sistema na linha
ALERTA: Cupom Fiscal já registrado no sis54545tema na linha
ALERTA: Cupom Fiscal já registrado no sistema na linha

ah intensão é que ele busque somente pela linha correta

Lucas, repare o seu fonte e o conteúdo que você me mandou. No seu fonte, após a palava ALERTA, tem um espaço. No conteúdo que você me mandou não tem.
Pode ser esse o problema.

De qualquer forma, fiz algumas modificações no seu fonte, e comigo deu certo.



Att,

Marcos

Bom Marcos coloquei o código da sua forma também, e não adiantou, o código está perfeitamente igual ao seu, ele mostra a message avisando que foi separado, entretanto não funciona

O que você informa nos campos EdtRecebecaminho e EdtDestino?

edtRecebeCaminho = S:\Testes\Programa\erros\teste.txt
edtDestino = S:\Testes\Programa\erros\erros103

ele tem um Open dialog em buttons para cada edit, funcionam perfeitamente, e a parte do arquivo txt o usuario inseri sem apagar o restante do caminho

Blz. Faça um teste aí: informe no destino o conteúdo abaixo:
edtDestino = S:\Testes\Programa\erros\erros103\teste.txt

Veja se o arquivo será movido.

Att,

Marcos

Então fiz o teste , e também não foi movido rs , to pensando em ir me benzer porque ta complicado

Como você mesmo disse, manualmente, você consegue, certo?
Tente executar seu projeto como administrador, e refaça os testes, inclusive esse último.
Calma que vamos chegar lá!

Pronto acabei de fazer os testes em usuario administrador, mesmo assim não deu certo, ele só me manda a mensagem mais quando vou verificar o arquivo continua na mesma pasta

Também debuguei ele, ele executa a linha do MoveFile , e não move do mesmo jeito

Marcos, no caso se tiver como me explicar uma forma de que ele abra os arquivos .log , e que seja N arquivos seira muito bom, Obrigado pela ajuda

Como assim? Você fala analisar vários arquivos dentro de uma pasta?

Marcos, obrigado mais ja consegui arrumar o erro ok, mais eu tenho uma pergunta, o comando assignfile ele aceita o *.txt ?

Isso mesmo, no caso eu preciso que ele verifique em todos os arquivos da pasta.

Por favor, postar o seu código com a solução, assim outras pessoas que compartilharem a mesma dúvida terão lugares para pesquisar no fórum!

Abração e bons códigos!!

AI GALERA ESTA AI O CÓDIGO RESOLVIDO , OBRIGADO PELA AJUDA !

procedure Tf_SeparaErros.Button3Click(Sender: TObject);
var
arq: TextFile; { declarando a variável "arq" do tipo arquivo texto }
linha: string;
Ch, Ch2 : String;
sc_vt: Word;
sc_vai: TSearchRec;
begin
A:=false;
ch := edtRecebeCaminho.Text;
Ch2 := edtDestino.Text;
sc_vt := FindFirst(edtRecebeCaminho.Text + '???????????????????.log', faArchive, sc_vai);

While sc_vt = 0 Do
Begin
If Length(sc_vai.Name) < 20 Then
Begin
sc_vt := FindNext(sc_vai);
Continue;
End;
AssignFile(arq, edtRecebeCaminho.Text + sc_vai.Name);
{$I-} // desativa a diretiva de Input
Reset(arq); // [ 3 ] Abre o arquivo texto para leitura
{$I+} // ativa a diretiva de Input

while not eof(arq) do
begin
readln(arq, linha); // [ 6 ] Lê uma linha do arquivo
if (copy(linha, 1, 75) ='ALERTA : Cupom Fiscal já registrado no sistema na linha') then
begin
A:=true;
end;
end;
CloseFile(arq);
if A=true then
begin
Ch:=Ch+sc_vai.Name;
Ch2:=Ch2+sc_vai.Name;
MoveFile(PCHAR(Ch),PCHAR(ch2));
showmessage('Arquivos Separados');
end;
sc_vt:= FindNext(sc_vai);
end;
if A=false then
begin
showmessage('Nenhum arquivo foi separado');
end;

showmessage('processo finalizado');
end;