'Script for Script_WDX
' (c) Vladimir Alexiev <vladimir@sirma.bg>
' Given a "QR" file such as
' mPay2 DOC M.1.PM 1.0 QR001 Quality Review Sign-off.doc
' Find the "base file" such as
' mPay2 DOC M.1.PM 1.0 - Project Mandate.doc
' And then return the date difference between the "QR" and "base" file in days.
' Also returns a sign (+) or (-) depending on whether the difference is >=5d or less.
' For example: 0 (-), 4 (-), 5(+), 10 (+)
'filename = "mPay2 DOC M.1.PM 1.0 QR001 Quality Review Sign-off.doc"
content = ""
set re = new regexp
set reNotbase = new regexp
re.pattern = "^(.* )1\.0 QR(FAL)?0" ' interesting QR files
reNotbase.pattern = "^(.* )1\.0 QR" ' not "base" files: these are all QR files
set matches = re.execute (filename)
if matches.count > 0 then
prefix = matches(0).submatches(0)
set fso = CreateObject("Scripting.FileSystemObject")
for each basefile in fso.getFolder(".").files
basename = basefile.name
if prefix = left (basename, len(prefix)) and not reNotbase.test(basename) then
dat = fso.getFile(filename).dateLastModified
basedat = fso.GetFile(basename).dateLastModified
diff = DateDiff ("d", basedat, dat) ' or "h" for hours
if diff < 5 then
sign = "(-)"
else
sign = "(+)"
end if
content = diff & " " & sign
exit for
end if
next
set fso = nothing
end if
set matches = nothing
set re = nothing
set reNotbase = nothing
'msgbox content
|
)