Visual Basic para Aplicaciones - Mover archivos mediante VBA

Alguien tendra algun codigo mediante el cual se pueda mover un archivo de un folder a otro mediante codigo VBA..

Quiero hacer una aplicacion que desde excel pueda mover ciertos archivos seleccionados por el usuario de un folder a otro.

Gracias de Antemano

Ing. Zeus Alberto Paez Renteria

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Origen)
fs.copyfolder Origen, Destino
f.Delete True

también puede hacerse con la API de Windows

Saludos desde Baires, JuanC

Hola Juan muchas gracias de antemano por la ayuda

Este codigo funciona para mover los folders completos en caso de querer mover archivos podria poner...

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Origen)
For Each Fil In fs.Files
If Fil.Name = Ejemplo.dxf then
Set Filename = Fil
fs.Fil.CopyFil Origen, Destino
Fil.Delete True
End if
Next

Esto seria correcto...

Gracias