最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
读取目录下的文件得到一个数组
时间：2022-06-30 11:45:10 编辑：袖梨 来源：一聚教程网
filename=dir("盘符:*.*")
i = 0
do while filename = ""
array1 (i)=filename
i = i + 1
filename = dir("c:*.*")
loop
VB好象也有比较好的方法，但是我不太清楚了
VBScript
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("盘符:")
Set fc = f.Files
i = 0
For Each f1 in fc
array1(i)=f1.name
i=i+1
Next
资料来源：碧波山庄Visual Basic http://ctsvb.1**2*6.com
i = 0
do while filename = ""
array1 (i)=filename
i = i + 1
filename = dir("c:*.*")
loop
VB好象也有比较好的方法，但是我不太清楚了
VBScript
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("盘符:")
Set fc = f.Files
i = 0
For Each f1 in fc
array1(i)=f1.name
i=i+1
Next
资料来源：碧波山庄Visual Basic http://ctsvb.1**2*6.com
相关文章
- 光与影33号远征队符文收集攻略：如何获得符文振奋疗愈亮色 12-16
- 歪歪漫画免费在线看-高清页面入口畅享优选画质 12-16
- 百炼英雄怎么升星 英雄升星材料准备 12-16
- 163邮箱登录入口-网易163邮箱网页版快速登录 12-16
- 韩漫免费漫画入口页面精选合集-韩漫免费漫画入口热榜TOP集锦 12-16
- 百炼英雄怎么觉醒 英雄觉醒条件一览 12-16