Moving Multiple Files From One Folder To Another

**galang_ofel** · 05-09-2013, 06:27 AM

hi,
Please help, I need to move several files to another folder but cannot proceed successfully due to "run time error 53", I am aware that the solution to this will be to delete the content that doesn't exist in the code.
What I want is for the program to run without encountering the error and without deleting any content in the code. I will be using my macro regularly , checking from a hundred of files(500) and deleting to the code files or content that does not exist will be tedious.
I am new and still learning/trying to know how to write VBA code.
Thanks in advance.

ofel

My code as follows,

Code:

Sub Copy_Payroll_Files()
Set fso = CreateObject("Scripting.FileSystemObject")    'define shorcut

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

zSourceFolder = "C:\RCI_FILES\SOA\2013\2013_03_AGENTS\"                          'set source folder; include "\" at end

Set fso = CreateObject("Scripting.FileSystemObject")    'define shorcut
fso.movefile zSourceFolder & "234446500579*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500155*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500676*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500456*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500511*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500391*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500587*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500341*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500309*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500634*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500317*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500480*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500464*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500325*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500260*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500406*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500642*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500090*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500139*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500147*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500197*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500074*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500113*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500684*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500032*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500498*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500799*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500503*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500252*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500715*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500820*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500375*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500294*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500472*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500189*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500163*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500367*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500626*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500765*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500618*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500561*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500707*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500105*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500082*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500016*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500121*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500171*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500202*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500210*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500228*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500244*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500278*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500286*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500333*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500359*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500383*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500414*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500422*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500430*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500448*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500529*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500529*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500595*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500600*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500650*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500668*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500692*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500723*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500731*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500749*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500757*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500773*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500781*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
fso.movefile zSourceFolder & "234446500812*.txt", "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"

Set fso = Nothing

End Sub

**Excel Fox** · 05-09-2013, 08:25 AM

You are sure you want to hard code all these files? Or do you want to have a more generic move-all-available-files macro?

**galang_ofel** · 05-09-2013, 08:46 AM

Originally Posted by Excel Fox

You are sure you want to hard code all these files? Or do you want to have a more generic move-all-available-files macro?

.
Hi,
yes .
Thanks

**Excel Fox** · 05-09-2013, 10:17 AM

Yes to what??!

**galang_ofel** · 05-09-2013, 11:59 AM

Hi,
Sorry , it is yes for -You are sure you want to hard code all these files?
my purpose is to segregate/separate and to properly classify these accounts from the others.

Thanks
Ofel

**bakerman** · 05-10-2013, 12:43 AM

Maybe something like this

Code:

Sub Copy_Payroll_Files()
zSourceFolder = "C:\RCI_FILES\SOA\2013\2013_03_AGENTS\"
For Each it In Array("234446500579*.txt", "234446500155*.txt", "234446500676*.txt", "234446500456*.txt", "234446500511*.txt", "234446500391*.txt", "234446500587*.txt", _
                    "234446500341*.txt", "234446500309*.txt", "234446500634*.txt", "234446500317*.txt", "234446500480*.txt", "234446500464*.txt", "234446500325*.txt", _
                    "234446500260*.txt", "234446500406*.txt", "234446500642*.txt", "234446500090*.txt", "234446500139*.txt", "234446500147*.txt", "234446500197*.txt", _
                    "234446500074*.txt", "234446500113*.txt", "234446500684*.txt", "234446500032*.txt", "234446500498*.txt", "234446500799*.txt", "234446500503*.txt", _
                    "234446500252*.txt", "234446500715*.txt", "234446500820*.txt", "234446500375*.txt", "234446500294*.txt", "234446500472*.txt", "234446500189*.txt", _
                    "234446500163*.txt", "234446500367*.txt", "234446500626*.txt", "234446500765*.txt", "234446500618*.txt", "234446500561*.txt", "234446500707*.txt", _
                    "234446500105*.txt", "234446500082*.txt", "234446500016*.txt", "234446500121*.txt", "234446500171*.txt", "234446500202*.txt", "234446500210*.txt", _
                    "234446500228*.txt", "234446500244*.txt", "234446500278*.txt", "234446500286*.txt", "234446500333*.txt", "234446500359*.txt", "234446500383*.txt", _
                    "234446500414*.txt", "234446500422*.txt", "234446500430*.txt", "234446500448*.txt", "234446500529*.txt", "234446500595*.txt", "234446500600*.txt", _
                    "234446500600*.txt", "234446500650*.txt", "234446500668*.txt", "234446500692*.txt", "234446500723*.txt", "234446500731*.txt", "234446500749*.txt", _
                    "234446500757*.txt", "234446500773*.txt", "234446500781*.txt", "234446500812*.txt")
    If Dir(zSourceFolder & it) <> vbNullString Then
        With CreateObject("Scripting.FileSystemObject")
            .movefile zSourceFolder & it, "c:\RCI_FILES\SOA\2013\2013_03_AGENTS\php"
        End With
    End If
Next
End Sub