首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb 打开文件夹里的所有txt文件解决方法

2013-01-25 
vb 打开文件夹里的所有txt文件例如 d:\download 里面有53612.txt53810.txt53723.txt43216.txt我想按数序依

vb 打开文件夹里的所有txt文件
例如 d:\download 里面有53612.txt  53810.txt  53723.txt  43216.txt  
我想按数序依次读取里面的内容  
 谢谢!
[解决办法]
窗体上放一个 ListBox,Visible 可设置为 False,Sorted 属性设置为 True。

Dim strFile As String, i As Iteger

strFile = Dir("d:/download/*.txt")
Do Until strFile = ""
    List1.AddItem strFile
    strFile = Dir()
Loop

For i = 0 To List1.ListCount - 1
    Open "d:/download/" & List1.List(i) For Input As #1
    '......
    Close #1
Next i
[解决办法]
shell "dir /b /a-d /on d:\download\*.txt >d:\f.txt"
'然后读文件d:\f.txt的内容,每行一个文件名按名字排序

热点排行