热门标签：金昌电话机器人价格怎么在地图标注自己外呼系统API接口县域地图标注打印店个人可以办理400电话么修改地图标注凤台百度地图标注店武夷山旅游地图标注莱西电子地图标注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
