transferring files using the filesystem object

How can i transfer a file from one folder to the other using the file system object, the follwing can be used to get to the files in the folder and loop through them, but i need to get the files or at least a copy of the files and pass them to another folder.

This is what i've got:

Private Sub SetupAppFolder()
Dim fso As New FileSystemObject
Dim fldr As Folder
Dim fl As File

Set fldr = fso.getfolder("C:wherever")

For Each fl In fldr.Files
AddFileToStorage "pass the file here"
Next fl
End Sub

Where AddFileToStorage is another sub i want to pass the file to

Thanks.

look at this

http://msdn.microsoft.com/library/de...thmovefile.asp