excel - Subscript Out of Range for Looping Through Folder Code -


i trying loop through folder following code. however, keep getting subscript out of range error. explain fix issue?

sub loopthroughfolder()      const filespec string = "*.xls"     dim y integer     dim myfolder string     dim myfile string     dim idot integer     dim fileroot string     dim fileext string      dim arraydata() variant       y = 2009 2030          redim preserve arraydata(y, 12)         myfolder = activeworkbook.path & "\" & y & "\"          = 1         myfile = dir(myfolder & filespec)         while len(myfile) > 0             idot = instrrev(myfile, ".")              if idot = 0                 fileroot = myfile                 fileext = ""             else                 fileroot = left(myfile, idot - 1)                 fileext = mid(myfile, idot - 1)             end if              myfile = dir             arraydata(y, i) = fileroot             msgbox arraydata(y, i)             = + 1         loop      next y  end sub 

according msdn link, can redim preserve on last dimension of array, in case, change 12 in redim preserve arraydata(y, 12). changing order of array parameters fix problem.


Comments

Popular posts from this blog

Why does Ruby on Rails generate add a blank line to the end of a file? -

keyboard - Smiles and long press feature in Android -

node.js - Bad Request - node js ajax post -