Here is an example which does as your question above asks. ' folder where the files reside sSourceFolder = "C:\mysource" ' folder to where files are moved sTargetFolder = "C:\mytarget" dDate = Date Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(sSourceFolder) For Each oFile In oFolder.Files If DateDiff("d", oFile.DateCreated, dDate) = 0 Then oFile.Move sTargetFolder & "\", True End If NextHowever from your Subject Title I doubt that this is exactly what you want. You mention FTP, which may mean some files may already exist in the second location making File.Move a bad idea, some files may have been changed, but still have the same DateCreated etc.