Move Files : Runtime Error 53 - File not Found - on xml files

[sweeneytime]

Hi,

I am getting a "Runtime Error 53 - File not Found" with the below code. I am trying to move xml files from one folder to another. The file exists as my other macro can access the xml files and extract the info. But i can't get the macro to move them! Any help would be much appreciated. Removing the last slash in the folder address hasn't worked either.

Cheers,
Sweeneytime

Public Sub move()

        
        Dim MyFolder As String
        Dim NewFolder As String
        Dim MyFile As String
        
        
        MyFolder = "\\orcfinance\DynamicsGP\WebStore\FTP\Data\New\"
        NewFolder = "\\orcfinance\DynamicsGP\WebStore\FTP\Data\Archive\"
        MyFile = Dir(MyFolder & "\*.xml")
        Do While MyFile <> ""
            Name MyFolder & "\" & MyFile As NewFolder & "\" & MyFile
            MyFile = Dir
        Loop
        

End Sub

 

[strive4peace]

first loop through the directory to find all the files -- write the values to an array. Then loop through the array and move them

 

[sweeneytime]

Thanks

 

[strive4peace]

you're welcome. If you need help, please let us know