Fejl i kode (Loop)

Hej.

Har en masse Swf filer, og en masse php filer.
I php filerne står der info om swf filerne, som fx. Navnet på spillet, højden og bredden.
Derfor har jeg lavet et program der laver en sql (skriver det i textbox2.text) så jeg kan importere den direkte til min hjemmeside, så jeg får alle spillene der.

Alle php filerne hedder .game.php tilsidst.

Min kode ser sådan ud nu:

        On Error Resume Next
        Dim temp As String
        Dim Name As String
        Dim Width As String
        Dim Height As String
        Dim TextLine As String
        Dim aryTextFile() As String
        Dim LineOfText As String
        Dim i As Integer

        Dim fil As New IO.DirectoryInfo("C:\test2\")
        Dim fswf As IO.FileInfo() = fil.GetFiles("*.swf")
        Dim inf As IO.FileInfo


        For Each inf In fswf
            temp = Len(inf.Name)
            temp = temp - 4
            temp = Microsoft.VisualBasic.Left(inf.Name, temp)
            Label2.Text = (temp)


            'MsgBox(FILE_Name)

            Dim FILE_Name As String = "C:\test2\" & Label2.Text & ".game.php"
            If System.IO.File.Exists(FILE_Name) = True Then

                Dim objReader As New System.IO.StreamReader(FILE_Name)

                Do While objReader.Peek() <> -1
                    TextLine = TextLine & objReader.ReadLine() & ","

                Loop
                TextBox1.Text = ""
                TextBox1.Text = TextLine

                LineOfText = TextBox1.Text
                aryTextFile = LineOfText.Split(",")

                For i = 0 To UBound(aryTextFile)
                    'MsgBox(aryTextFile(i))
                Next i



                Name = aryTextFile(43)
                Name = Len(Name)
                Name = Name - 10
                Name = Microsoft.VisualBasic.Mid(aryTextFile(43), 9, Name)
                'MsgBox(Name)
                Label3.Text = Name

                Width = aryTextFile(53)
                Width = Len(Width)
                Width = Width - 15
                Width = Microsoft.VisualBasic.Mid(aryTextFile(53), 14, Width)
                'MsgBox(Width)

                Height = aryTextFile(56)
                Height = Len(Height)
                Height = Height - 16
                Height = Microsoft.VisualBasic.Mid(aryTextFile(56), 15, Height)
                'MsgBox(Height)


            Else

                TextBox3.Text = TextBox3.Text & Name

            End If


            TextBox2.Text = TextBox2.Text & "INSERT INTO ava_games (Name, description, url, catergory_id, published, image, Width, Height, filetype) VALUES('" & Label3.Text & "', '', 'http://www.arcadeskillz.com/games/" & Label2.Text & ".swf', '2', '1', 'http://www.arcadeskillz.com/games/" & Label2.Text & "1.gif', '" & Width & "', '" & Height & "', '1');" & vbNewLine

        Next inf

Men problemet med koden er at name kun tildeles i den første fil (den tager kun fil 1 og så har name den værdi.) altså den ændere ikke til næste fil osv. Håber i forstår det ^^

point tildeles her: http://www.eksperten.dk/spm/847968