error when trying to read file

[TonyVBnet]

hey guys.
i've got a problem with an application. my program loops through folders and subfolders to find defined filetypes. i've tried with some files and it works. but if i have large folders the programm will throw an exception: Specified argument was out of the range of valid values.
Parameter name: i
the error occurs, when the streamreader tries to read the read a file (because i want to select different information). but only after he's successfully read some other files! do you need some code or could you imagine without why this exception is thrown?
thx

 

[Dimandja]

Some code?

 

[TonyVBnet]

hi.
here's my code. it's very long, but perhaps you could find the mistake...
the error occurs in the last catch-statement ("error when trying to write to file"). so it has to be somewhere after the first try-statement (i don't have the possibility to run the program with vs.net to find the error with breakpoints because the system where it runs has no vs.net).
thx for your help!

Public Sub Search()
        Dim sr As IO.StreamReader
        Dim fw As New StreamWriter(_textSearch, True)
        Dim r As Regex
        Dim searchWord As String
        Dim m As MatchCollection
        Dim myconn As New SqlConnection _
        ("server=" & _DBConnection & ";uid=" & _
        _DBBenutzer & ";pwd=" & _
        _DBPasswort & ";database=" & _DBName & ";")

        For k = 0 To folderArray.Count - 1
            For q = 0 To typeArray.Count - 1
                Dim arr As New ArrayList()
                GetFiles(folderArray.Item(k), typeArray.Item(q), arr)
                Dim f As String
                For Each f In arr
                   For i = 0 To protocolArray.Count - 1
                        Try
                          sr = New IO.StreamReader(f)
                          s = sr.ReadToEnd
                          sr.Close()
                          Dim url As String
                          url = "((" + protocolArray.Item(i) & _
                          ")[^#'""][\w-\./#?=&%]+" + ")"
                          searchWord = "((<\s*a\s+[^>]*href\s*=\s*[""']?" + _
                          url + "[""' >])|" & _
                          "(window\.open\([""']" + url + "[""'])|" & _
                          """(" & protocolArray.Item(i) & "[^""]*)"")"
                          r = New Regex(searchWord, _
                          RegexOptions.IgnoreCase Or _
                          RegexOptions.Compiled)
                          m = r.Matches(s)
                          For n = 0 To m.Count - 1
                              Dim lSource As Long
                              Dim lLinks As Long
                              Try
                                myconn.Open()
                                Dim mycomm As New SqlCommand("SELECT " & _
                                "CASE WHEN COUNT(SourceID)=0 THEN 'FALSE' " & _
                                "ELSE 'TRUE' END AS Existing " & _
                                "FROM SourceFiles WHERE Source LIKE '" & f & "'" & _
                                " GROUP BY SourceID", myconn)

                                If CType(mycomm.ExecuteScalar(), Boolean) = False Then
                                Dim mycommand As New SqlCommand _
                                ("INSERT INTO SourceFiles" & _
                                "(Source, SearchDate)" & _
                                          "VALUES (@Source,@SearchDate)", myconn)
                                        myCommand.Parameters.Add _
                                        ("@Source", SqlDbType.NVarChar, _
                                        255, "Source").Value = f
                                        myCommand.Parameters.Add _
                                        ("@SearchDate", SqlDbType.DateTime, _
                                        12, "SearchDate").Value = Now

                                        myCommand.ExecuteNonQuery()
                                        Dim cmd As New SqlCommand _
                                        ("SELECT @@identity", myconn)
                                        lSource = cmd.ExecuteScalar()
                                    End If
                                Catch ex As Exception
                                    
                                    fw.WriteLine(vbNewLine & "error " & _
                                    "when trying to write to SourceFiles: " & ex.Message)
                                    fw.WriteLine()
                                Finally
                                    myconn.Close()
                                End Try

                                Dim s As String
                                s = m(k).Value.ToString
                                s = Replace(s, """", "")
                                s = Replace(s, "'", "")
                                s = s.ToLower
                                s = Regex.Replace(s, "(<\s*a\s+[^>]*href\s*=\s*[a-z]*[""']?" _
                                & protocolArray.Item(i) & ")", protocolArray.Item(i))

                                Try
                                    myconn.Open()
                                    Dim mycomm As New SqlCommand("SELECT " & _
                                    "CASE WHEN COUNT(LinkID)=0 THEN 'FALSE' ELSE " & _
                                    "'TRUE' END AS Existing " & _
                                    "FROM Links WHERE Url LIKE '" & s & "'" & _
                                    " GROUP BY LinkID", myconn)
                                    If CType(mycomm.ExecuteScalar(), Boolean) = False Then
                                        hits = hits + 1
                                        Dim mycommand As New SqlCommand _
                                        ("INSERT INTO Links(Url)" & _
                                        "VALUES (@Url)", myconn)
                                        mycommand.Parameters.Add("@Url", _
                                        SqlDbType.NVarChar, 255, _
                                        "Url").Value = s
                                        mycommand.ExecuteNonQuery()
                                        Dim MyCmd As New SqlCommand _
                                        ("SELECT @@identity", myconn)
                                        lLinks = MyCmd.ExecuteScalar()
                                    End If
                                Catch ex As Exception
                                    fw.WriteLine(vbNewLine & "Error " & _
                                    "when trying to write to Links: " & _
                                    ex.Message & f & s)
                                    fw.WriteLine()
                                Finally
                                    myconn.Close()
                                End Try

                                Try
                                    myconn.Open()
                                    Dim mycomm As New SqlCommand("INSERT " & _
                                    "INTO FilesLinks(LinkID, SourceID)" & _
                                    " VALUES (@LinkID, @SourceID)", myconn)
                                    myComm.Parameters.Add("@LinkID", _
                                    SqlDbType.Int, 20, _
                                    "LinkID").Value = lLinks
                                    myComm.Parameters.Add("@SourceID", _
                                    SqlDbType.Int, 20, _
                                    "SourceID").Value = lSource
                                    myComm.ExecuteNonQuery()
                                Catch ex As Exception
                                    fw.WriteLine(vbNewLine & "error " & _
                                    "when trying to write to FilesLinks: " & ex.Message)
                                    fw.WriteLine()
                                Finally
                                    myconn.Close()
                                End Try
                            Next
                            s = String.Empty
                        Catch ex As Exception
                            fw.WriteLine("Error when trying to read File " & _
                            f & ": " _
                            & ex.Message)
                            fw.WriteLine()
                        End Try
                    Next
                Next

            Next
        Next
        fw.WriteLine("Found URLs: " & hits)

        fw.Close()
    End Sub

 

[TonyVBnet]

okay, i've found out something. there are several folders in folderarray. i read them out from an xml-file. if there's only one folder in the xml it'll work all fine. but the program has problems with two different folders. i don't know why. the information in the xml are okay. i also get them in the right form.
so it has something to do with the loop (for k=0 to folderarray.count-1). is it possible, that there are too many loops so that the app has problems with it?

 

[TonyVBnet]

i've found and corrected the mistake.
thanks for your help