Visual Basic

Option Explicit
Dim i As Integer
Dim j As Integer
Dim t  As Integer
Dim SaveStr As String

Private Sub Command1_Click()
Dim msg As String

msg = InputBox("How many times want to repeat ?", "repeat", 0)
If IsNull(msg) = False And IsNumeric(msg) = True Then
    t = CInt(msg)
Else
    Timer1.Enabled = False
End If
Timer1.Enabled = True
SaveStr = Text1.Text
End Sub

Private Sub Form_Load()
i = 1
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Form_Resize()
Text1.Width = Me.Width
WebBrowser1.Width = Me.Width
WebBrowser1.Height = Me.Height
Command1.Left = Me.Width - Command1.Width
End Sub

Private Sub Timer1_Timer()
If WebBrowser1.Busy = False Then
    WebBrowser1.Navigate SaveStr + CStr(i)
    Text1.Text = SaveStr + CStr(i)
    i = i + 1
    
    If i = t + 1 Then
        Timer1.Enabled = False
        Text1.Text = vbNullString
        t = 0
        i = 1
    End If
End If
End Sub 

<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