Schleife - Index außerhalb des gültigen Bereichs

Public Sub read_dir()
Dim szPath As String
Dim szFile As String
Dim szPathname() As String
Dim szPfad() As String
Dim datname As String
szPath = "D:\Documents and Settings\User\Desktop\Testumgebung\"
szPfad1 = "A\B\1"
szPfad2 = "A\B\2"
szPfad3 = "A\B\3"
For i = 1 To 3
ReDim Preserve szPathname(i)
szPathname(i) = szPath + szPfad(i)  
szFile = Dir(szPathname(i) + "\*.xls")
Do While szFile  ""
Application.Workbooks.Open (szPathname(i) + "\" + szFile)
datname = ActiveWorkbook.Name
ActiveSheet.AutoFilterMode = False
Call kopieren
Workbooks(datname).Close (False)
szFile = Dir
Loop
i = i + 1
Next
End Sub

Gruß,
Franky