COPIAR UM BLOCO DE ARQUIVOS DE PASTA PRA OUTRA
[txt-size=3]Galera,
To precisando de uma ajuda.
Preciso fazer uma copiar um bloco de arquivo de uma pasta pra outra. Mas manter o mesmo nome dos arquivos, tipo o Copy do MSDOS (copy c:\*.txt G:\).
Ja tentei usar o Filecopy, mas não da.
Se alguem poder me ajudar eu agradeço[/txt-size]
To precisando de uma ajuda.
Preciso fazer uma copiar um bloco de arquivo de uma pasta pra outra. Mas manter o mesmo nome dos arquivos, tipo o Copy do MSDOS (copy c:\*.txt G:\).
Ja tentei usar o Filecopy, mas não da.
Se alguem poder me ajudar eu agradeço[/txt-size]
Faça 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:
Para mais informações veja: Usando o FSO
Espero ter ajudado
Aqui vai o código:
Private Sub cmdcopiararqtxt_Click()
'Copiando os arquivos para c: emp
On Error GoTo trataerro
[txt-backcolor=#ffff00]fso.CopyFile c:\*.txt, "c: emp\", True[/txt-backcolor]
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 SubPara mais informações veja: Usando o FSO
Espero ter ajudado
O cara.. Valeu mesmo... o esquema é bom mesmo.
Só uma observação alem de fazer a referencia é preciso declarar uma variavel.
Dim fso As New FileSystemObject
Obrigado
Só uma observação alem de fazer a referencia é preciso declarar uma variavel.
Dim fso As New FileSystemObject
Obrigado
Tópico encerrado , respostas não são mais permitidas