Visual Basic

<code>
[Groupname]
      [Brandname]
            [Productname]
                        [Price]3,99[/Price] 
                        [ItemID]12345[/ItemID]
                        [Description]""[/Description]
            [/Productname]
      [/Brandname]
[/Groupname]
 
</code>

    Private Sub Zählung(ByVal obj As String)<br />
        Dim subfolders As System.Collections.ObjectModel.ReadOnlyCollection(Of String)<br />
        Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)<br />
<br />
        On Error Resume Next<br />
        Me.Refresh()<br />
        If BackgroundWorker2.CancellationPending Then Exit Sub<br />
<br />
        If InStr(1, obj, "RECYCLER") > 0 Or InStr(1, obj, "System") > 0 Then<br />
            'MsgBox(obj & " ist ein Systemordner", , USRINFO)<br />
        Else<br />
            If My.Computer.FileSystem.FileExists(obj & "\" & "Thumbs.db") Then<br />
                My.Computer.FileSystem.DeleteFile(obj & "\" & "Thumbs.db")<br />
                'MsgBox("Thumbs im Verzeichnis " & Pfad & " gelöscht!", MsgBoxStyle.Information, USRINFO)<br />
            End If<br />
<br />
            subfolders = My.Computer.FileSystem.GetDirectories(obj)<br />
            files = My.Computer.FileSystem.GetFiles(obj, FileIO.SearchOption.SearchTopLevelOnly)<br />
            ordner = ordner + subfolders.Count<br />
            dateien = dateien + files.Count<br />
<br />
            If total = Nothing Then<br />
'initially the progress indicator style has been set to marquee<br />
                BackgroundWorker2.ReportProgress(dateien * 100 / dateien, obj)<br />
            Else<br />
'progress indicator style has been set to continuous before, when BW1 is finished<br />
                BackgroundWorker2.ReportProgress(dateien * 100 / total, obj)<br />
            End If<br />
<br />
            For Each unterordner As String In subfolders<br />
                Zählung(unterordner)<br />
            Next<br />
        End If