Clone fails

[Kem Tekinay]

When trying to clone my corrupted DB manually in RB, I got the following
VException:

Invalid parameter value was specified in function
"Binary_Link::put_OnDelete".

Exception Error Number: 627987

Before posting this to Mantis, I wanted to make sure my cloning code was
right:

  dim originalDB as new VDatabase
  dim originalFile as FolderItem
  dim targetFolder as FolderItem
  
  originalFile = GetOpenFolderItem( "" )
  if originalFile = nil then return
  
  originalDB.Open( originalFile )
  if originalDB.ErrNumber <> 0 then
    MsgBox( "Couldn't open DB." )
    return
  end if
  
  targetFolder = originalFile.Parent.Child( originalFile.Name + " clone" )
  if not targetFolder.Exists then targetFolder.CreateAsFolder
  originalDB.Clone( targetFolder.Child( originalFile.Name ), true )
  if originalDB.ErrNumber <> 0 then
    MsgBox( "Couldn't clone DB. Error " + str( originalDB.ErrNumber ) _
      + chr( 13 ) + chr( 13 ) + originalDB.ErrString )
    return
  end if
  
  originalDB.Close
  

__________________________________________________________________________
Kem Tekinay                                                 (212) 201-1465
MacTechnologies Consulting                              Fax (914) 242-7294
545 Eighth Avenue, Suite 401                          Pager (917) 491-5546
New York, New York 10018                    http://www.mactechnologies.com

To join the MacTechnologies Consulting mailing list, send an e-mail to:
  mactechnologies_consulting-subscribe at yahoogroups.com