这是我的算法

 Dim IndexMP3 As Integer
   DoEvents

 Do Until SearchedFileMP3(IndexMP3) = ""
   DoEvents

 ReDim SearchedFileMP3(1 To IndexMP3): IndexMP3 = IndexMP3 + 1
   DoEvents

 SearchedFileMP3(IndexMP3) = Dir(MyFile & "\*.mp3")
Loop

只要管里面的数组定义部分，其他的DIR之类的是我的程序里的功能，不要在意
在此我请教一下大家有没有更好的算法能够让数组的下标不断根据需求增加并且代码更加简洁呢？

另外请教一下 数组如何降低下标？比如我A（2）的值清空为""，将他Redim A(0 to 1)会出错么？

感谢各位对我的帖子的关注，另外，我那句有问题的代码改成这样可以么？
ReDim preserve SearchedFileMP3(1 to indexmp3): IndexMP3 = IndexMP3 + 1

[此贴子已经被作者于2015-10-19 20:16编辑过]