Como Substituir arquivo?

Question

Boa noite  :shock:   Pessoal, estou querendo fazer algo simples,Estou querendo substituir um arquivo do windows, Por outro atrav�s do programa, Sem aparecer aquela janela avisandosobre a substitui��o,...

Rodc · Answer

DeleteFile()  -  remove um arquivo do discoFileCreate() - cria um arquivoRenameFile()  - renomeia um arquivoCopyFileTo() - copia um arquivo...

Psycho · Answer

Sim, Mais da maneira que estou querendo fazer aparece
um error, veja bem :shock:
Estou querendo substituir um arquivo texto escrito por outro do mesmo
nome, S� que sem nada dentro 0 bytes
para isso eu apenas crio o arquivo com o nome:

begin
filecreate(�C:\Documentos\info.txt�);

Blz ele cria o arquivo normal,
Mais agora eu quero escrever nele..
Eu sei que podia ir direto substituir o arquivo pela escrita com o code
abaixo, mais quero primeiro substituir o arquivo por outro
zerado 0 bytes, e depois escrever nele

Mais quando junto as 2 fun��es aparece error na linha que abre
o arquivo pra escrita pq ? :

Var
  F:TextFile;
 Begin
   AssignFile(f,�C:\Documentos\info.txt�);
   Rewrite(f); //abre o arquivo para escrita

   Writeln(f,�Leia-me�); //escreve no arquivo e desce uma linha

   Write(f,�vers�o 1.2 teste�); //escreve no arquivo sem descer a linha
   Closefile(f); //fecha o handle de arquivo
end.

:shock:

Ser� que quando a 2 fun��o vai abrir o arquivo texto para escrita, a 1 fun��o ainda n�o criou o arquivo no diretorio gerando um conflito ?

pergunto isso pq aparece um error na linha que abre o arquivo pra escrita, depois de compilar

Rewrite(f);

Porque isso acontece? como arrumar isto?!

T+

Psycho · Answer

Algu�m ae pode dar uma m�ozinha coisa simples,S� que aqui aparece o error �I/O error 32�  :shock:...

Joaoshi · Answer

Colega, o FileCreate deixa o arquivo aberto.

var qualArquivo : Integer;

begin
-- qualArquivo := [b:7532fae61e]FileCreate[/b:7532fae61e](�c:\tmp\coisas.txt�);
-- [b:7532fae61e]FileClose[/b:7532fae61e](qualArquivo);
end;

Espero ter ajudado.

Psycho · Answer

[quote:def5d7cc1e=�joaoshi�]Colega, o FileCreate deixa o arquivo aberto.var qualArquivo : Integer;begin--  qualArquivo := [b:def5d7cc1e]FileCreate[/b:def5d7cc1e](�c:tmpcoisas.txt�);--  [b:def5d7cc1e]FileClose[/b:def5d7cc1e](qualArquivo);end;Espero ter ajudado.[/quote:def5d7cc1e]Po eu pensei nisso tbm, j� tinha tentado mais n�o vai, o error persiste:[code:1:def5d7cc1e]var Criar : Integer; Modificar : TextFile;begin  Criar := FileCreate(�c:tmpcoisas.txt�);  FileClose(Criar);   AssignFile(Modificar,�c:tmpcoisas.txt�);   Rewrite(Modificar); //abre o arquivo para escrita  (LINHA DO ERRO)   Writeln(Modificar,�Leia-me�); //escreve no arquivo e desce uma linha   Write(Modificar,�vers�o 1.2 teste�); //escreve no arquivo sem descer a linha   Closefile(Modificar); //fecha o handle de arquivoend.[/code:1:def5d7cc1e] :shock:   Porque o erro persiste, como arruma-lo?! At� mais...

Pestana_ · Answer

estranho eu fiz um teste aqui gerou o arquivo e n�o apresentou nehum erro. Estou utilizando o D7!flw....

Psycho · Answer

Certeza? Voc� n�o modificou nada?Ent�o � meu delphi que est� com defeito?Essas coisas s�o foda  :shock:  Aqui o error ainda continua da uma luz ae pessoal...

Psycho · Answer

Galera compilo, vlw era o closefile mesmodepois disso o diretorio estava erradono exemplo... thanksVou dar contialidade aqui vlw...

F�rum Como Substituir arquivo? #356197