Moving ALL Files in a Folder

[JoeM]

This seems like it should be such a silly little thing, but for some reason I cannot get it to work.



At the end of a VBA procedure, I want to move all my input files into an archive folder. This is what I am trying:

    Dim myFromPath as String
    Dim myToPath as String

    myFromPath = "G:\Input\*.*"
    myToPath = "G:\Input\Archive"

    FileCopy myFromPath, myToPath
    Kill myFromPath

It is returning an error that says: Run-time error 52: Bad file name or number.
I verified that all the folders and file names are correct, and that I have read/write rights to all the directories (I can manually copy and move files into these directories).

Can anyone tell what I am doing wrong?

[rpeare]

I usually do file movement with filesystemobject commands but have you tried

myToPath = "G:\Input\Archive\"

[JoeM]

I usually do file movement with filesystemobject commands but have you tried

myToPath = "G:\Input\Archive\"

Yes, I tried numerous variations, including that one. I also tried:

myToPath = "G:\Input\Archive\*.*"

If you have other code using FileSystemObject commands, I am open to that too!

[rpeare]

Dim fs
Dim sSourceDir As String
Dim sTargetDir As String

Set fs = CreateObject("scripting.filesystemobject")

sSourceDir = "<Sourcedir>\*.*"
sTargetDir = "<Targetdir>"

fs.copyfile sSourceDir, sTargetDir

Set fs = Nothing

[JoeM]

Beautiful! I just added the KILL statment at the end, and it does exactly what I need it to.

Thanks!