Jump to content
a3deluxe

Copiar ficheiros txt

Recommended Posts

a3deluxe

Boa tarde,

O meu programa tem um Botão para copiar o conteúdo de um ficheiro txt (file2.txt) para um segundo ficheiro txt(file1.txt)

quando copia do file2.txt para o file1.txt.  O file1 já esta vazio, sem contudo, porque foi apagado por outro processo.

//       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	        Dim a = My.Computer.FileSystem.ReadAllText("C:\file2.txt")
        My.Computer.FileSystem.WriteAllText("C:\file1.txt", a, False)
	    End Sub 

Precisava de uma ajuda como posso fazer em género de um "ciclo".

sempre que carrego no botão copiar do file2 para o file1 e depois do file1 para o file2.

O PROBLEMA é que quando o ficheiro é copiado o primeiro esta vazio neste caso o file fica vazio.

Tinha pensado em colocar um 3 ficheiro, a copia de algum dos outros.

Como acham que posso fazer?

Obrigado

Edited by a3deluxe

Share this post


Link to post
Share on other sites
ber0x88

Se bem percebi a pergunta, assim por alto um terceiro ficheiro iria resolver o problema ou guardar o conteúdo todo numa variável.

File2 -> FileTemp

File1 -> File2

FileTemp -> File1

Será isto?

Faz-me lembrar o jogo das torres de Hanoi xD


"Impossível é apenas uma grande palavra usada por gente fraca que prefere viver no mundo como está em vez de usar o poder que tem para mudá-lo."

Share this post


Link to post
Share on other sites
a3deluxe

Obrigado pela ajuda ber0x88, mas já resolvi.

Resolvi usando um ficheiro TXT contendo 0 e 1

Le o ficheiro TXT se tiver 0 = copia a File2,e escreve 1.

se tiver 1 = copia file3 e escreve 0

Foi assim que resolvi.

 

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.