VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 558|回复: 3

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

[复制链接]
发表于 2022-3-29 19:50:51 | 显示全部楼层 |阅读模式
微信图片文件名格式如:    微信图片_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
为什么提示下标越界呢?应该怎么改?
发表于 2022-4-9 16:23:15 | 显示全部楼层
PicName这个动态数组是根据getpicname函数返回的结果的,下标不一定是从 1 To UBound(PicName),for i=LBound(PicName) To Ubound(PicName)
回复 支持 反对

使用道具 举报

发表于 2022-4-9 16:23:59 | 显示全部楼层
本帖最后由 chixun99 于 2022-4-9 16:25 编辑

还有一个可能是文件夹里的图片数量过大,超过了数组的表达范围。下标也可能无效
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-28 11:47

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表