VB 关于数组下标越界，求救

答案:5 悬赏:50 手机版

解决时间 2021-05-04 04:27

提问者网友：回忆在搜索
2021-05-03 16:23

Dim filename
Dim a()
filename = Dir(File1.Path + "\*.*")
i = File1.ListCount
For k = 0 To i
ReDim Preserve a(s)
a(s) = filename
s = s + 1
filename = Dir(File1.Path + "\*.*")
Next

Text1.Text = a(1)

最佳答案

五星知识达人网友：持酒劝斜阳
2021-05-03 17:20

Dim filename
Dim a()
filename = Dir(File1.Path + "\*.*")
i = File1.ListCount
For k = 0 To i-1
ReDim Preserve a(s)
a(s) = filename
s = s + 1
filename = Dir(File1.Path + "\*.*")
Next

Text1.Text = a(1)

全部回答

1楼网友：山河有幸埋战骨
2021-05-03 22:15

看代码的意思好像是要一行一行的读取文件内容，并保存在数组中。

2楼网友：洒脱疯子
2021-05-03 20:37

Dim filename Dim a() filename = Dir(File1.Path + "\*.*")

k=1 do

if filename="" then exit do ReDim Preserve a(k) a(k) = filename

k=k+1 filename = Dir(File1.Path + "\*.*") loop

Text1.Text = a(1)

3楼网友：往事埋风中
2021-05-03 19:29

其实你这段代码并没有语法上的错误，是因为你的file.path这个目录里面根本就没有任何文件，因此程序报错了。你可以尝试着在目录内放一些文件再调试看看

4楼网友：平生事
2021-05-03 18:24

循环条件改为or k = 0 To i-1

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息