como crear un archivo xml vacío???

[juanpablo3]

hola a todos,

estoy haciendo una aplicación en la que es importante ir guardando la secuencia de botones que se van pulsando y he pensado en ir anotandola en un archivo xml (la idea sería crear un archivo xml por día)

Buscando por la red sólo encuentro "cómo cargar un archivo xml ya existente" pero lo que yo estoy buscando es "cómo crear un archivo xml vacío".

Lo que he hecho hasta ahora es esto:

Public Sub CrearXML(FileName As String)
'crear fichero xml vacío

Set mobjDOM = New DOMDocument50
mobjDOM.save (App.Path & "\Escritos\" & FileName & ".xml")
Set mobjDOM.documentElement = mobjDOM.createElement("pulsaciones")

Set mobjDOM = Nothing

End Sub

Esto crea un archivo con el nombre FileName. Pero cuando lo intento cargar con el mobjDom.load me da error, no lo puede cargar.

¿Alguien puede decirme si hace falta hacer algo más en ese código?

¿Alguien sabe una forma de crear archivos xml vacíos para poder luego editarlos?

Muchisimas gracias por adelantado.

[juanpablo3]

Nota mental: hay que salvar el fichero creado antes de liberar el objeto DOMDocument... (... ups!)

Por lo que el código quedaría asi:

Public Sub CrearXML(FileName As String)
'crear fichero xml vacío

Set mobjDOM = New DOMDocument50
mobjDOM.save (App.Path & "\Escritos\" & FileName & ".xml")
Set mobjDOM.documentElement = mobjDOM.createElement("pulsaciones")
mobjDOM.save(App.Path & "\Escritos\" & FileName & ".xml")
Set mobjDOM = Nothing

End Sub

Esto funciona correctamente pero me parece una solución un poco cerda.
A lo dicho, si alguien sabe alguna otra forma, toda sugerencia será bienvenida.

Muchas gracias