Visual Basic

Imports System.IO

Public Class Form1

    Private fn As String
    Private projectFile As String
    Private shortName As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        sfd.InitialDirectory = Environment.SpecialFolder.Personal
        sfd.Filter = "Enscription Project (*.vpt)|*.vpt"
        sfd.Title = "Trying to fix problem"

        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            fn = sfd.FileName
            shortName = Path.GetFileNameWithoutExtension(fn)
            projectFile = shortName
            WriteXML()
        Else
            Exit Sub
        End If
    End Sub


    Private Sub WriteXML()

        Dim writer As New Xml.XmlTextWriter(projectFile, Nothing)

        writer.WriteStartDocument(True)
        writer.Formatting = Xml.Formatting.Indented
        writer.WriteComment("Created using Enkadia Enscription - copyright 2010")

        writer.WriteStartElement("EnkadiaEnscription")
        writer.WriteStartElement("Project")
        writer.WriteElementString("Transcription", fn & ".vtn")
        writer.WriteElementString("EditorsNotes", fn & ".ved")
        writer.WriteElementString("VideoClip", fn & ".mp4")

        writer.WriteEndElement()
        writer.WriteEndElement()

        writer.Flush()
        writer.Close()

    End Sub
End Class

Walt Fair, Jr. wrote:

this stuff is covered in beginning books and tutorials.