Private Sub cmdMakeXMLs_Click()
On Error GoTo Err_MakeXMLs_Click

Dim strXML As String
Dim fso As New Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Dim sFile As FileDialog ' Windows File browser
Dim Selection As String
Dim rs As DAO.Recordset
Dim xmlQuery As String

xmlQuery = "qryMetadata"

Set rs = CurrentDb.OpenRecordset(xmlQuery)

' Set variable
Set sFile = Application.FileDialog(msoFileDialogFolderPicker)

' Open and check for CANCEL
With sFile
    .AllowMultiSelect = False
    If .Show <> -1 Then
      Exit Sub
    End If
End With

' Store full path
Selection = sFile.SelectedItems(1)

'Pass to functions which build XML strings, and store the returned strings

With rs
      
Do While Not .EOF
        
strXML = HDxml()
strXML = Replace(strXML, "xmlCurrentDate", Format(Date, "yyyy - mm - dd"))
strXML = Replace(strXML, "xmlHD_AssetName", [HD_AssetName])
strXML = Replace(strXML, "xmlHD_PackageAsset", [HD_PackageAsset])
strXML = Replace(strXML, "xmlHD_MovieAsset", [HD_MovieAsset])
strXML = Replace(strXML, "xmlHD_PosterAsset", [HD_PosterAsset])
strXML = Replace(strXML, "xmlHD_TitleAsset", [HD_TitleAsset])
strXML = Replace(strXML, "xmlTitleSort", [TitleSort])
strXML = Replace(strXML, "xmlTitleBrief", [TitleBrief])
strXML = Replace(strXML, "xmlTitleDisplay", [TitleDisplay])
strXML = Replace(strXML, "xmlSummary", [Summary])
strXML = Replace(strXML, "xmlRating", [Rating])
strXML = Replace(strXML, "xmlCaptions", [Captions])
strXML = Replace(strXML, "xmlRunTime", [RunTime])
strXML = Replace(strXML, "xmlDisplayTime", [DisplayTime])
strXML = Replace(strXML, "xmlReleasedYear", [ReleasedYear])
strXML = Replace(strXML, "xmlCategory", [Category])
strXML = Replace(strXML, "xmlGenre", [Genre])
strXML = Replace(strXML, "xmlStartDate", [StartDate])
strXML = Replace(strXML, "xmlEndDate", [EndDate])

    'open the XML file with the name specified in the variable HD_AssetName.
    Set ts = fso.OpenTextFile(Selection & [HD_AssetName] & ".xml", ForWriting, True)

    'with the file open, write the xml text stream to it
    ts.Write strXML

    'close the text stream object
    ts.Close
    Set ts = Nothing
    
    'Verify that the file was written successfully and send an alert if it was not
        If Not fso.FileExists(Selection & [HD_AssetName] & ".xml") Then
            MsgBox "There was an error creating " & [HD_AssetName] & ".xml" & ".", vbOKOnly
        End If

.MoveNext
Loop

.Close
End With
        
' Release variable
Set sFile = Nothing

Exit_MakeXMLs_Click:
    Exit Sub
Err_MakeXMLs_Click:
    MsgBox "MakeXMLs_Click Error# " & Err.Number & " - " & Err.Description
End Sub