截取微信文件夹下所有的微信图片的日期作为数组

失忆

微信图片文件名格式如：    微信图片_20220322131606.jpg

Private PicName() As String '定义一个数组装入图片名称
Private PicTime() As String '定义一个数组装入图片名称
已经用GetPicName函数获取了文件夹下的所有图片了,Call GetPicName(App.Path & "\hdpic", "*.jpg,*.bmp,*.gif")
问题是，现在我用mid函数截取文件名里的日期，20220322，这样写：
For i = 1 To UBound(PicName)
'获取微信图片文件名里的时间
If InStr(PicName(i), "微信图片") > 0 Then
PicTime(i) = Mid(PicName(i), 6, 8)
Next
为什么提示下标越界呢？应该怎么改？

chixun99

PicName这个动态数组是根据getpicname函数返回的结果的，下标不一定是从 1 To UBound(PicName)，for i=LBound(PicName) To Ubound(PicName)

chixun99

还有一个可能是文件夹里的图片数量过大，超过了数组的表达范围。下标也可能无效