[RESOLVED] run time error 9 subscript out of range ?

[tony007]

Hi all . i have an application that loads a playlist text file in to listboxes. The playlist text file has the song name and song path . When i try to load the playlist file i get the follwoing error

Run-time error 9

subscript out of range

pointing at the following line:

'Check for unwanted vbCrLf (which would yeild a "")
If Len(strArr(intLB)) <> 0 Then

could you guys help me fix this error? Looking forward for replies.Thanks

Private Sub Command1_Click()
 
Dim i As Long
Dim intLB As Long   'Is an index counter
Dim lngCtr As Long  'Represents the count of individual lines of data
Dim strOpenPathFile As String, strArr() As String, strBuffArr() As String
        
    With CommonDialog1
        .CancelError = True
        On Error GoTo CommDiaCancelled
        .Filter = "Text Files (*.txt)|*.txt|Word Doc (*.doc)|*.doc"
        .ShowOpen
    End With
    
    strOpenPathFile = CommonDialog1.FileName
 
    Open strOpenPathFile For Input As #1
        strArr = Split(Input(LOF(1), 1), vbCrLf)
    Close #1
 
    'Clear all the ListBoxs
    List1.Clear
    List2.Clear
     lngCtr = UBound(strArr)
 
    For intLB = 0 To lngCtr
    
CommDiaCancelled:
    If Err.Number = 32755 Then
        MsgBox "Cancel selected !"
        Exit Sub
    End If
        'Check for unwanted vbCrLf (which would yeild a "")
        If Len(strArr(intLB)) <> 0 Then
 
            'Split the Line of data
            strBuffArr = Split(strArr(intLB), vbTab)
 
            'Load the data into the ListBoxs
 
            List1.AddItem strBuffArr(0)
            List2.AddItem strBuffArr(1)
           
        End If
    Next
    Call Number(List1, " - ")
List1.Selected(0) = True
For i = List1.ListCount - 1 To 0 Step -1 ' counts list entries
    If List1.Selected(i) = True Then ' if selected then
        Text1.Text = List1.List(i) ' add to other list
        Text2.Text = List2.List(i)
        Text3.Text = List1.List(i)
        Text3.Text = Replace(Text3.Text, ".mp3", "")
        Text3.Text = Replace(Text3.Text, ".avi", "")
        Text3.Text = Replace(Text3.Text, ".asf", "")
        Text3.Text = Replace(Text3.Text, ".mpeg", "")
        Text3.Text = Replace(Text3.Text, ".mpg", "")
        Text3.Text = Replace(Text3.Text, ".wav", "")
        Text3.Text = Replace(Text3.Text, ".wmv", "")
        Text3.Text = Replace(Text3.Text, ".wma", "")
        Text3.Text = Replace(Text3.Text, ".cda", "")
        Text3.Text = Replace(Text3.Text, ".mid", "")
        Text3.Text = Replace(Text3.Text, ".midi", "")
        Text3.Text = Replace(Text3.Text, ".rm", "")
        RichTextBox3.TextRTF = Replace(RichTextBox1.TextRTF, "%song", Text3)
        If Option2.Value = True Then
        Else
     
        End If
    End If
Next
 
Text10.Text = List1.ListCount
End Sub

[Siddharth Rout]

1) What is this "CommDiaCancelled:" doing there in the for loop?
2) What is the value of intLB at that moment of time??? Try and put this message box before that line to tfind the value of intLB....

[anhn]

You have at nearly the top: On Error GoTo CommDiaCancelled
but CommDiaCancelled: is a label in middle of a For loop.
Perhaps an error happens somewhere before the line: strArr = Split(Input(LOF(1), 1), vbCrLf)
and the error handler jumps directly into the middle of the loop.
At that point, intLB took the default value of 0 (the line "For intLB = 0 to ... " was not executed) and of course strArr(0) gives you subscript out of range because strArr() was not initialized.

Why do you set the error handler jumps directly into the middle of the For Loop ? I don't know the reason.

Perhaps the whole code block

CommDiaCancelled:
    If Err.Number = 32755 Then
        MsgBox "Cancel selected !"
        Exit Sub
    End If

was copied and pasted to a wrong place.

[tony007]

Thanks all i got it working . I had some textboxes/richtextbox missing in my form !! so i changed the last part of code to this and now working well :

........
 
    'RichTextBox3.TextRTF = Replace(RichTextBox1.TextRTF, "%song", Text3)
        'If Option2.Value = True Then
        'Else
     
        'End If
    End If
Next
 
'Text10.Text = List1.ListCount
End Sub