I need to copy a file into another file. I use this code but I dont get any
errors but I dont get the file copied neither.



Private Function RenombrarArchivoPresupuesto()

'On Error Resume Next

Dim archivo

Dim f

Dim f1

Dim fc

Dim fso


Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(strRutaPresupuestos)

Set fc = f.files

For Each f1 in fc

archivo = f1.name

if Left(archivo, 4) = Ano Then

fso.CopyFile strRutaPresupuestos & archivo, strRutaPresupuestos &
"CargaPresupuestoDireccion.xls"

exit function

End if

Next

Set fso = Nothing

End Function



--
LUIS ESTEBAN VALENCIA
MICROSOFT DCE 2.
MIEMBRO ACTIVO DE ALIANZADEV

I would MsgBox out all your variables first to make sure that what you think
is being passed IS being passed. If you still think it looks OK then pug in
what the MsgBoxs give you directly and see if it works.

--

Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP)
www.SQLDTS.com - The site for all your DTS needs.
www.Konesans.com


"Luis Esteban Valencia" <luisvalen (AT) haceb (DOT) com> wrote