Hi,
I had the same problem. So if i copied some information in origin an it has modification date too old, i will lose it in destination when i delete it in origin, no matters how many days i set up in profile.
So i made a script. This script changes modification date for each file in every comparation if origin exists. If origin doestn exist, date stops updating, so time period takes care of them and deletes them after the number of days you told in profile.
In order to make this work, you need to unchek the box "ignore date modification data".
So if you already have any data, you need to change all modification date in destination to make your first fresh start.
Dim destPath
destPath = "C:\destination folder"
'you need to write yous destination path in destPath variable
Function Description(ScriptType)
Description = "Control de borrado de ficheros en destino"
' This is a runtime script (2)
ScriptType = 2
End Function
Sub RunFileCompareDiff(Filename, Diff, WhyIgnored, ByRef Skip)
If WhyIgnored = 11 then
FullFilename = destPath & Filename
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile =objFSO.GetFile(FullFilename)
filejustname = objFSO.GetFileName(objFile)
basepath = objFSO.GetParentFolderName(objFile)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(basepath)
Set objFolderItem = objFolder.ParseName(filejustname)
objFolderItem.ModifyDate = date
End If
End Sub
I had the same problem. So if i copied some information in origin an it has modification date too old, i will lose it in destination when i delete it in origin, no matters how many days i set up in profile.
So i made a script. This script changes modification date for each file in every comparation if origin exists. If origin doestn exist, date stops updating, so time period takes care of them and deletes them after the number of days you told in profile.
In order to make this work, you need to unchek the box "ignore date modification data".
So if you already have any data, you need to change all modification date in destination to make your first fresh start.
Dim destPath
destPath = "C:\destination folder"
'you need to write yous destination path in destPath variable
Function Description(ScriptType)
Description = "Control de borrado de ficheros en destino"
' This is a runtime script (2)
ScriptType = 2
End Function
Sub RunFileCompareDiff(Filename, Diff, WhyIgnored, ByRef Skip)
If WhyIgnored = 11 then
FullFilename = destPath & Filename
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile =objFSO.GetFile(FullFilename)
filejustname = objFSO.GetFileName(objFile)
basepath = objFSO.GetParentFolderName(objFile)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(basepath)
Set objFolderItem = objFolder.ParseName(filejustname)
objFolderItem.ModifyDate = date
End If
End Sub