会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
ike_li
耐住寂寞 微信:61047973
博客园
首页
新随笔
联系
管理
循环读文件夹的文件
Code
Public
Shared
Sub
ReadFile()
Dim
i
As
Integer
Dim
FileName()
As
String
Dim
FileNo
As
Integer
FileName
=
Directory.GetFiles(
"
d:\a
"
)
FileNo
=
Directory.GetFiles(
"
d:\a
"
).Length
For
i
=
0
To
FileNo
-
1
Dim
strFileName
As
String
=
FileName(i)
Next
End Sub
posted @
2008-08-13 20:00
ike_li
阅读(
334
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告