COPIAR ARQUIVOS DE UMA LOCAL PARA OUTRO???
Amigos,
Gostaria de fazer o seguinte:
Criar dois texts, o primeiro para digitar o caminho do arquivo ao qual quero copiar. chamamos a text de textcopia.
E outra para digitar o caminho onde quero colar o arquivo.
chamamos a text de textcola.
Podem me ajudar?
Gostaria de fazer o seguinte:
Criar dois texts, o primeiro para digitar o caminho do arquivo ao qual quero copiar. chamamos a text de textcopia.
E outra para digitar o caminho onde quero colar o arquivo.
chamamos a text de textcola.
Podem me ajudar?
BOM
USA ESSA API é + SEGURO DO Q USAR A FUNÇÃO FILECOPY DO VB
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
FICARIA ASSIM :
CALL CopyFile( textcopia , textcola , 1)
AS VARIAVEIS TEM Q TER O NOME DO ARQUIVO E O PATH
ESPERO TER AJUDADO
USA ESSA API é + SEGURO DO Q USAR A FUNÇÃO FILECOPY DO VB
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
FICARIA ASSIM :
CALL CopyFile( textcopia , textcola , 1)
AS VARIAVEIS TEM Q TER O NOME DO ARQUIVO E O PATH
ESPERO TER AJUDADO
não aconteceu nada amigo
Então tente a FileCopy do VB, essa eu tenho certeza que funfa....
Sub FileCopy(Source As String, Destination As String)
Member of VBA.FileSystem
Copies a file
BOM
COPIA ELA NUM .BAS ASSIM
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
CASO USE ELA NUM FORM DEIXA ELA ASSIM
PRIVATE Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
FICARIA ASSIM :
CALL CopyFile( "C:\AMIGO.TXT" , "C:\WINDOWS.AMIGO.TXT" , 0)
VERIFICA C EXISTE O CAMINHO ORIGEM E DESTINO E C O ARQUIVO EXISTE
A FUNÇÃO FileCopy FUNCIONA SIM , SO Q C ESSE ARQUIVO TIVER ABERTO OU ALQUEM ESTEJA USANDO ELA DAR ERRO
ESPERO TER AJUDADO
COPIA ELA NUM .BAS ASSIM
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
CASO USE ELA NUM FORM DEIXA ELA ASSIM
PRIVATE Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
FICARIA ASSIM :
CALL CopyFile( "C:\AMIGO.TXT" , "C:\WINDOWS.AMIGO.TXT" , 0)
VERIFICA C EXISTE O CAMINHO ORIGEM E DESTINO E C O ARQUIVO EXISTE
A FUNÇÃO FileCopy FUNCIONA SIM , SO Q C ESSE ARQUIVO TIVER ABERTO OU ALQUEM ESTEJA USANDO ELA DAR ERRO
ESPERO TER AJUDADO
Não sei se estão entendendo:
eu quero fazer o seguinte:
o primiro text o arquivo que quero copiar.
Por exemplo digito no text1: C: este.txt, este arquivo é o que quero copiar.
o segunto text o local para onde quero colocar este arquivo.
Por Exemplo digito na text2 C:\Windows, ou seja o arquivo que esta no c: vai para o c:\windows.
obrigado
eu quero fazer o seguinte:
o primiro text o arquivo que quero copiar.
Por exemplo digito no text1: C: este.txt, este arquivo é o que quero copiar.
o segunto text o local para onde quero colocar este arquivo.
Por Exemplo digito na text2 C:\Windows, ou seja o arquivo que esta no c: vai para o c:\windows.
obrigado
BOM, AMIGO BUENO + C TEM Q COLOCAR O NOME DO ARQUIVO TB NO DESTINO
COMO NO EXEMPLO Q POSTEI
text1: C: este.txt
text2: C:\WINDOWS este.txt
CALL CopyFile( text1 ,text2 , 0)
COMO NO EXEMPLO Q POSTEI
text1: C: este.txt
text2: C:\WINDOWS este.txt
CALL CopyFile( text1 ,text2 , 0)
filecopy txtcopia, txtcola ..... e é só.....
valeu..... um abraço a todos.....
valeu..... um abraço a todos.....
referência ao Fso, O objeto FSO esta presente em uma type library chamada Scripting a qual esta contida no arquivo Scrrun.dll. E você deve fazer uma referência a esta library em seu projeto para poder usar o FSO . Para isto selecione no menu Project->References... procure por 'Microsoft Scripting Runtime' .
Aqui vai o código:
Private Sub cmdcopiararqtxt_Click()
Dim fso As New FileSystemObject
On Error GoTo trataerro
fso.CopyFile c:\*.txt, "c: emp\", True
MsgBox "Arquivos => COPIADOS", vbInformation
Exit Sub
trataerro:
If Err.Number = 53 Then
MsgBox "Arquivo não encontrado !", vbCritical
Else
MsgBox Err.Description & " - " & Err.Number, vbCritical
End If
End Sub
Duvidas....acesse este link:
http://www.macoratti.net/filesyst.htm
Aqui vai o código:
Private Sub cmdcopiararqtxt_Click()
Dim fso As New FileSystemObject
On Error GoTo trataerro
fso.CopyFile c:\*.txt, "c: emp\", True
MsgBox "Arquivos => COPIADOS", vbInformation
Exit Sub
trataerro:
If Err.Number = 53 Then
MsgBox "Arquivo não encontrado !", vbCritical
Else
MsgBox Err.Description & " - " & Err.Number, vbCritical
End If
End Sub
Duvidas....acesse este link:
http://www.macoratti.net/filesyst.htm
Tente o seguinte
--------------------------------------------
Dim novoPath as String
novoPath = textCopia.Text
Do while InStr(novoPath,"\") > 0
novoPath = VBA.Right(novoPath, Len(novoPath) - InStr(novoPath, "\"))
Loop
If VBA.Right(textCola.Text,1) <> "\" Then textCola.Text = textCola.Text & "\"
novoPath = textCola & novoPath
FileCopy textCopia, novoPath
MsgBox "Arquivo copiado com sucesso!"
--------------------------------------------
Dim novoPath as String
novoPath = textCopia.Text
Do while InStr(novoPath,"\") > 0
novoPath = VBA.Right(novoPath, Len(novoPath) - InStr(novoPath, "\"))
Loop
If VBA.Right(textCola.Text,1) <> "\" Then textCola.Text = textCola.Text & "\"
novoPath = textCola & novoPath
FileCopy textCopia, novoPath
MsgBox "Arquivo copiado com sucesso!"
Cara ai tem um link de um exemplo que fiz tipo explorer do windows se quiser dar uma olhada ele copia deleta usando api do windows
Explorer em vb
Explorer em vb
Tópico encerrado , respostas não são mais permitidas