'
' Example script for 2BrightSparks SyncBackPro that sets a file to
' be only on the source if its identical to the destination file.
'
' SBLang=VBScript
'
' http://www.2BrightSparks.com/
'

'
' This is a runtime script 
'
Function Description(ByRef ScriptType)
  Description = "When files are identical change it to say its only on the source"
  ScriptType = 2
End Function

'
' Called when a file is compared and found to be identical
' See the Technical Reference->Scripting->Constants page for Diff values
'
Sub RunFileCompareSame(Filename, ByRef Diff)
  '0 = Skipped because of settings or files are identical (CDIFF_IDENTICAL)
  '1 = Different sizes (CDIFF_SIZE)
  '2 = Different hash values (CDIFF_HASH)
  '4 = Different modification date & time (CDIFF_DATETIME)
  '8 = In right/destination only (CDIFF_DESTONLY)
  '16 = In left/source only (CDIFF_SRCONLY)
  '32 = Different attributes (CDIFF_ATTRIB)
  '64 = Only the versions exist (will show in Differences window) (CDIFF_VERSION)
  '128 = File case is different (CDIFF_CASE)
  '256 = Different creation date & time (CDIFF_CREATEDATETIME)
  '512 = Different NTFS security (CDIFF_NTFSSEC)
  
  ' Lets say its only in the source
  Diff = 16
End Sub
