注册 登录
编程论坛 VB6论坛

文件名遍历选取时出现错误,自己写的程序,请各位帮忙看看,应该怎么改正

xeby118499 发布于 2015-09-16 15:20, 362 次点击
只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录

新手,想做一个遍历所需要的文件夹下指定文件并另存到指定文件夹下,在运行到id(l)=filename时就出现了下标越界错误。请问一下大家,id是我新定义的数组,没有设定上下界,在这种情况下为什么会出现这个错误,该如何改正? 其他数组在调试过程中看到可以按要求赋值。  请大家帮忙看看,十分感谢
3 回复
#2
风吹过b2015-09-16 17:05
先用 DIR 找一遍,同时计数,
然后再用 DIR 重找一遍,这次保存文件名。

要么使用 文件列表控件 。

------------------
好吧,你两边问,我两边回答了你。
#3
xeby1184992015-09-17 09:41
回复 2楼 风吹过b

感谢回复呢,就是我比较笨试了一晚上,都没成功。。QAQ
#4
风吹过b2015-09-17 11:47
好吧
'第一遍,专用于计数
l=0
filename=dir(...... ) '图片版的代码不愿看,就在这里没办法复制内容

do while filename=""
l=l+1
filename=dir
loop
redim cid(i) '重定义数组

'第二遍,保存文件名
l=0
filename=dir(...... ) '图片版的代码不愿看,就在这里没办法复制内容

do while filename=""
cid(l)=filename
l=l+1
filename=dir
loop
1