Wayne,
The same simplicity I assume you have an existing one you want to protect, a
good idea with a XML file. All typed in message so watch typos.
\\\
Dim myfilenameB as string = "BkupTblb" & Now.tostring(MMddyy) & ".xml"
dim myfilenameA as string = "BkupTbla" & Now.tostring(MMddyy) & ".xml"
if file.exist(myfilenameB) then
File.delete(myfilenameB)
end if
file.move(myfilenameA, myfilenameB)
file.copy(myoriginal, myfilenameA)
///
In this the B is deleted,it is up to you if you want that or to do something
else with it.
I hope this helps?.
Cor
|