Copiando arquivos para um diretório

[Leonardo~]

Por exemplo

Eu tenho a pasta C:\Users\Leonardo

e meu amigo tem a pasta C:\Users\Rafael

eu queria colocar uma caixa de texto em que eu poderia colocar o local para onde eu gostaria

que o arquivo fosse copiado

por exemplo

eu tenho o arquivo 1x.txt e quero que ele seja copiado para a pasta X que esta no disco local

so que meu tambem precisa copiar esse arquivo para essa mesma pasta so que a pasta dele

se chama Y então ele escreve o destino que ele quer e o arquivo é copiado pra lá.

espero que voces tenham entendido e me ajudeeem!

preciso urgentemente disso!

[Danleonhart]

Olá !

Bem, uma das maneiras é assim:

Private Sub Command1_Click()
 Dim Arq1, Arq2 As String

Arq1 = Text1.Text
Arq2 = Text2.Text

FileCopy Arq1, Arq2

End Sub

Aqui uma imagem do exemplo:

Lembrando que coloquei da maneira mais simples, sem tratamento de erros...se você usar dessa maneira e o diretório não existir, será apresentado um erro.

Também tem de colocar sempre o formato do arquivo (".txt" no caso do exemplo)...senão ele será salvo sem formato.

O ideal para esse tipo de script é usar o componente "Commom Dialog"...no link abaixo tem uma boa dica para iniciar com este componente:

http://www.forum-invaders.com.br/vb/showth...g-Box-%28VB6%29

VALEU !