Try
Dim strFileName As String = IO.Path.Combine(ProjectFolder, Me.ProjectName + ".xml")
Dim strFileName_bak As String = IO.Path.Combine(ProjectFolder, Me.ProjectName + "_bak.xml")
Dim doc As XmlDocument = New XmlDocument()
doc.Load(strFileName)
' Get and display all the book titles.
Dim root As XmlElement = doc.DocumentElement
Dim elemList As XmlNodeList = root.GetElementsByTagName("a:width")
If elemList.Count >= 8 Then
''正常ファイルなら現行のファイルをバックアップする。
My.Computer.FileSystem.CopyFile(strFileName, strFileName_bak, True)
End If
Catch ex As Exception