Visual Basic - URGENTE: TRASPASAR ARCHIVOS

Hola.
Tengo un formulario en Word, en el que quiero que al pulsar un boton, corte todos los archivos de un directorio y los pegue en otro directorio. Por ejemplo de C:\juegos a c:\juegos\futbol
¿quecódigo debo poner?
gracias.

sa algo así:

Const Loc as string = "C:\...\archivo.txt" 'Ubicación del archivo
Const NewLoc as string = "C:\Nueva\archivo.txt" 'Ubicación donde movés el archivo

if dir$(Loc)="" then exit sub 'Si no existe el archivo salgo
SetAttr Loc, vbNormal 'Cambio los atributos
FileCopy Loc, NewLoc 'Copio el archivo
Kill Loc 'Elimino el archivo original

Este código lo colocás en un programa que lo ejecute de forma automática cada cierto tiempo.

Espero que te sirva
Saludos Ruri