Why Subscript out of range error

[rdeleon]

I am getting the "subscript out of range error" in the following code. Can someone tell me what I am doing wrong!

    Dim sfile As String
    Dim strFileNames() As String
    Dim strRowSource As String
    Dim intI As Integer
        
    sfile = Dir("C:\Temp\*.jpg", vbNormal)
    
    intI = 0
    Do While sfile & &quot;&quot; <> &quot;&quot;
        sfile = Dir()
        strFileNames(intI) = sfile

*** error ocurrs here

        intI = intI + 1
    Loop

Any help is appreciated.

 

[jebry]

Hi!

You set up your array as a dynamic array so you need to initialize it and then redim it each time through the loop, like this:

Dim sfile As String
Dim strFileNames() As String
Dim strRowSource As String
Dim intI As Integer

sfile = Dir("C:\Temp\*.jpg", vbNormal)

intI = 0
Do While sfile & &quot;&quot; <> &quot;&quot;
ReDim Preserve strFileNames(0 To intI) As String
sfile = Dir()
strFileNames(intI) = sfile *** error ocurrs here
intI = intI + 1
Loop

This will give you an array that has as many subscripts as necessary.

hth
Jeff Bridgham
bridgham@purdue.edu

 

[Guest_imported]

Does this help ?

intI = 1
ReDim strFileNames(intI)

Do While sfile & &quot;&quot; <> &quot;&quot;
sfile = Dir()
strFileNames(intI) = sfile '*** error ocurrs here
intI = intI + 1
ReDim Preserve strFileNames(intI)
Loop

 

[rdeleon]

Thanks to both respondents. I appreciate it very much.

Rene'