|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|--VB/Script 怎样读取一个目录下的所有文件名到数组? VB用dir，VBScript用files集合

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

VB/Script 怎样读取一个目录下的所有文件名到数组? VB用dir，VBScript用files集合

Example:

VB

filename=dir("c:*.*")

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("c:")

Set fc = f.Files

i = 0

For Each f1 in fc

array1(i)=f1.name

i=i+1

Next

本站关键词：

|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页||东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|