move file out of folder based on earliest date modified

[rjmdc]

i need vba please to cut file out of original folder and pasteinto another folder based on earliest modified date
the folder will have 2 files at any given time and i need to remove the earlier one to leave the latter one for processing

 

[John_w]

Try this, changing the folders as required.

Public Sub Move_Earliest_File()

    Dim fromFolder As String, toFolder As String
    Dim file1 As String, file2 As String
    
    fromFolder = "C:\path\to\folder1\"   'CHANGE THIS
    toFolder = "C:\path\to\folder2\"     'CHANGE THIS

    file1 = Dir(fromFolder & "*.*")
    file2 = Dir()
    If FileDateTime(fromFolder & file1) < FileDateTime(fromFolder & file2) Then
        Name fromFolder & file1 As toFolder & file1
    Else
        Name fromFolder & file2 As toFolder & file2
    End If
    
End Sub

 

[rjmdc]

please explain the if and else
i want to leave the latter one in the current file and move the earlier one out

 

[John_w]

The If statement looks at the modified date of file1 and file2 and moves file1 if it is earlier than file2, otherwise it moves file2.

 

[rjmdc]

sorry it doesnt move the folder out of folder 1 into folder 2

 

[rjmdc]

thanks i had an error
this works perfectly
i really appreciate