Dim fileName as string
Dim arFileName() as string
Dim x as integer, y as integer
y = 0; x = 10
fileName = Dir("c:\")
do while fileName <> ""
    if y mod 10 = 0 then
        x = x +10
        redim preserve arfile(x)
    end if
    arFile(y) = fileName
    y =y +1
    fileName = Dir
loop