Copy and Move files and folders (Date-Time)

Hi.

I have code to copy/move a file folder other destination, but i need copy only it file has date and time different or date equal and time different to destination file.

if the source file is with the date and time iqual the file on the local destination, not need copy.

Sub UploadFile()

Dim fso As Object
Dim oArquivo As Object

Set fso = CreateObject("Scripting.FileSystemObject")
'If the first file exists
If fso.FileExists("C:\SISrequest\myfile.xlsx") Then '<-(Origin)

'Takes the object file in oArquivo
Set oArquivo = fso.GetFile("C:\SISrequest\myfile.xlsx")

'Copy and paste detination, replacing if you find one with the same name
oArquivo.Copy "C:\SISrequest\Dropbox\myfile.xlsx", True '<-(Destination)

End If

Set oArquivo = Nothing
Set fso = Nothing

End Sub

Exemple:
FileA in OriginA has date and time equal FileA in OriginB, not copy.
FileA in OriginA has date equal, time different FileA in OriginB, copy.

thanks

Hi marreco,

You can use the below code to get last modified date of file and then compare the same with file that exists in OriginB.

oArquivo.Datelastmodified

Regards,
Paresh J

Hi, thank you for help.

i haven't time free to test.