文件夹下处理XLS文件,不含子文件夹 VB

来源：百度知道 编辑：UC知道 时间：2024/05/17 09:18:41
要求目录A下:
有文件1.XLS,2.XLS,3.XLS,4.XLS等等,可能有很多
按照文件名字排序.
将各个文件的文件名读取出来,存到1.TXT里.
求代码.谢谢
感谢1楼的回答,但是
Dim fs As String, i%,这个i%什么意思.
还有fs = fs & File1.List(i) & vbCrLf 好象有问题.赫赫,不过还是谢了
本来我想问FSO怎么实现的.

补充:i% 定义整形 简写而已
我没调试 如果有出现错误 你自己调试一下 改改就可以了 l~

关于FSO:
1 FSO
Private Sub Command1_Click()
Dim fs As String, i%
Dim sFolder As Folders
Dim FolderItem As Folder

FolderPath = "d:\" '设置自己文件夹
Set sFolder = FileSystem.GetFolder(FolderPath).SubFolders
For Each FolderItem In sFolder
fs=fs & FolderItem.Name
Next
wTxt fs
End Sub

2 filelistbox
首先将filelistbox控件的Parent属性设置为:"*.xls"
然后代码:
Private Sub Command1_Click()
Dim fs As String, i%
For i = 0 To File1.ListCount - 1
fs = fs & File1.List(i) & vbCrLf
Next
wTxt fs '写文件到txt
End Sub
Private Sub Form_Load()
File1.Path = "d:\" '设置自己文件夹
End Sub
Function wTxt(f As String)
FileName = FreeFile()
Open "d:\1.txt" For Output As #FileName
Print #FileName, f
Close
End Functio