I think this is the fault:
> Dim DateCr, DateMod as date
With this syntax, you have DateCr and DateMod pointing to the same
date (you modify one: the other is modified as well). So, when you
say "DateMod=new date", DateCr also becomes a "new date". It's a hard-
to-explain concept.
You may try with:
Dim DateCr As Date
Dim DateMod As Date
But, I think there will be a problem if the file does not exist:
If f.exists then
DateCr = f.CreationDate
end if
'If f does not exist, DateCr is nil...
In that case, you say "Document.CreationDate=nil":
Document.CreationDate = DateCr
I don't know if this is reliable.
You may again modify:
Dim DateCr As new Date
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
