Vergessen den Code einzusetzen
Public Function GetFileInfoByType(ty As String) As cFileinfo
Dim finfo As cFileinfo
Dim files As IXMLDOMElement
Dim filen As IXMLDOMElement
Dim filst As IXMLDOMNodeList
Dim sel As String
Set files = GetFilesParentNode
If Not files Is Nothing Then
sel = "/ITScourseware/Files/File[@type='" & ty & "']"
Set filst = pDocRoot.SelectNodes(sel)
Dim l As Long
l = filst.Length
Set filen = filst(0)
If Not filen Is Nothing Then
Set finfo = New cFileinfo
Set finfo.DocumentInfo = DocInfo.CloneAs(0)
finfo.DocumentInfo.typestr = GetStringAttribute(filen, "type")
finfo.DocumentInfo.SetTypeAndExtension finfo.DocumentInfo.TypeEnum
finfo.DocumentInfo.Addition = GetStringAttribute(filen, "addition")
finfo.Changed = GetDateAttribute(filen, "changed")
finfo.Size = GetLongAttribute(filen, "size")
finfo.Pages = GetLongAttribute(filen, "pages")
finfo.Checked = GetDateAttribute(filen, "checked")
End If
End If
Set GetFileInfoByType = finfo
End Function