Move all files to a new folder, and delete files in original folder

[neelsfer]

I have files in the following folder with a ".out" extention. c:\rt\rfidlogs\.out" and need to move all these ".out" files to c:\rt\rfiderrors\ folder, and then delete the original in the rfidlogs folder
Cannot get it to work

FileCopy "c:\rt\rfidlogs\*.out", "c:\rt\rfiderrors\"
Close #1
   Kill "C:\RT\rfidlogs\*.out"

Please guide me

[twinnyfo]

I believe the best way would be to copy and kill each file individually.

[Hennepin]

I prefer using the file system object

    Dim FSO As Object
    Set FSO = CreateObject("scripting.filesystemobject")
    FSO.MoveFile "c:\rt\rfidlogs\*.out", "c:\rt\rfiderrors\"

or with reference set to 'microsft scripting runtime' then IntelliSense will work

    Dim fs As New FileSystemObject
    fs.MoveFile "c:\rt\rfidlogs\*.out", "c:\rt\rfiderrors\"

[zmbd]

yes but why call another library reference?

Sub testmove()
Name %1 As %2
End Sub

Where %1 is the full name and path to the file of interest
and %2 is the full name and path to the new location.
You can also take the Dir function results to an array and then use the array to feed the code above the old and new names...

(edit: array or a collection... either way... google search will turn up tons of code to handle recursion too)

http://www.applecore99.com/gen/gen061.asp

-z

[NeoPa]

Neels, the problem with your code is probably that line #2 hasn't run before you start, but Z's suggestion is a far better approach all round. Set it as Best Answer now is my advice ;-)