Maintain Create Date or datevariant = Created

HCL Domino Domino Forum
1

I would like to conslolidate several Document libraries into a single library. However, either copying or cutting and pasting changes the create date of the document to today. How is it possible to move these documents and retain the create date as the original date?

2

Subject: Maintain Create Date or datevariant = Created

You can create an agent to move the docs. I don’t think it messes with those dates when you do it this way.

3

Subject: Solution -

I was looking for a solution a user good do from the front end GUI. So I first explored Archiving which worked Ok. I just set up the source database to archive to the destination and then ran archive which did not change the dates. However, this did not give the functionality I needed in catagorizing the moved documents so I wrote this script.

destination = “somefile\somedatabase.nsf”

Dim ns As New notessession	

Dim ToDatabase As NotesDatabase

Dim src As NotesDocument

Dim dst As NotesDocument

Dim col As notesdocumentcollection

Dim item As NotesItem

Set col = ns.CurrentDatabase.UnprocessedDocuments

i = col.Count

Set todatabase = ns.GetDatabase("NS1", destination , False)

j = Messagebox( "Move " + i + " selected files to " + Todatabase.Title + " ?" , MB_OKCANCEL,"Are you sure you want to " )

If j=1 Then

	x=1

	Do

		Set src = col.GetNthDocument(x)

		Set dst = src.copytodatabase( todatabase )

		Set item = dst.getfirstitem( "Categories" )

		Call item.Appendtotextlist( ns.CurrentDatabase.Title )

		If (dst.Save(True,True,True) = True) Then

			src.Remove(True)

		End If		

		x=x+1

		

	Loop While x <= i

End If

This is much better then the archiving solution.