Listing 5: The SaveIt Subroutine

Sub SaveIt
  On Error Resume Next
  Set filesys = CreateObject("Scripting.FileSystemObject")
  If filesys.FileExists(FileString) Then
    filesys.DeleteFile FileString
  End If
  Const adPersistXML = 1
  DRS.Save FileString,adPersistXML
End Sub