copiar y pegar archivos

Hola Arístides,

La respuesta es si. A falta de mas detalles revisa este codigo retocado de
Dave Peterson:

'-Inicio codigo-
Sub CopiarArchivos()
Dim Archivos() As String, Contador As Long
Dim Archivo As String, Ruta As String, RutaDest As String

'change to point at the folder to check
Ruta = "C:\TEMP\"
RutaDest = "C:\TEMP1\"

If Right(Ruta, 1) <> "\" Then
Ruta = Ruta & "\"
End If

Archivo = ""
On Error Resume Next
Archivo = Dir(Ruta & "*.xls")
On Error GoTo 0
If Archivo = "" Then
MsgBox "No se ha encontrado ningun archivo"
Exit Sub
End If

'get the list of files
Contador = 0
Do While Archivo <> ""
Contador = Contador + 1
ReDim Preserve Archivos(1 To Contador)
Archivos(Contador) = Archivo
Archivo = Dir()
Loop

If Contador > 0 Then
Application.DisplayAlerts = False
For Contador = LBound(Archivos) To UBound(Archivos)
FileCopy Ruta & Archivos(Contador), RutaDest &
Archivos(Contador)
'your code would go here
Next Contador
Application.DisplayAlerts = True
End If
End Sub
'-Fin codigo-

Saludos,
KL


"Arístides Fernández" wrote in message
news:eowI1%

Listeros:

¿Es posible hacer una macro que copie archivos (individualmente o en forma
masiva) de determinada carpeta y los pegue en otra?

Desde ya gracias