Many Thanks For The scripting.FileSystemObject
Regards
"JMB" wrote:

> This may help get you started. It should copy all .xls files.
>
> Sub test()
> Const Source = "C:\Mis documentos\10 October 2005\*.xls"
> Const Dest = "C:\Mis documentos\12 December 2005"
> Dim FSO As Object
>
> Set FSO = CreateObject("Scripting.FileSystemObject")
> If Not FSO.folderexists(Dest) Then MkDir Dest
> FSO.copyfile Source, Dest
> End Sub
>
>
>
>
>
> "TISR" wrote:
>
> > I want to copy a number of files from one folder to another
> > The code that I am trying to use is:
> > Dim WbSource As Workbook
> > Set WbSource.Path = "C:\Mis documentos\10 October 2005"
> > For Each Workbook In WbSource.Path
> > Workbook.Copy "C:\Mis documentos\12 December 2005"
> > Next Workbook
> > However it tells me that I am making wrong use of Path
> > Can someone help?