求助！怎样将某文件夹下的很多文件名称一次读入变量（有这样的控件吗？）

[sxczwxf]

怎样将某文件夹下的很多文件名称读入变量（有这样的控件吗？）
例如：
c:\aaa\1.txt -------->变量a
c:\aaa\2.txt -------->变量b
... ...
... ...

[踏平扶桑]

有啊
filelistbox就行了，它的listcount返回符合条件的文件总数，然后你就可以读取了（和读取list的一样）
//MSDN
FileListBox 控件


在运行时，在 Path 属性指定的目录中，FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。

语法

FileListBox

说明

设置 List、ListCount 和 ListIndex 属性，可以访问列表中的项目。如果需要显示 DirListBox 和 DriveListBox 控件，那么可以编写代码，使它们与 FileListBox 控件同步，并使它们之间彼此同步。

[sxczwxf]

DirListBox 和 DriveListBox 和FileListBox 怎么同步？？？

[hhjjhjhj]

Sub ShowFileList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & vbCrLf
Next
MsgBox s
End Sub

[wxf2008]

他们有.drive 和.path呀

[SoHo_Andy]

将名称保存在数组中，Ubound(数组)的值即为文件个数
通过数组下标即可访问到文件名称

dim strFileName() as string
dim filename as string
dim j as long
j=-1
filename = Dir(路径 & "*.txt")
Do While filename <> ""
If filename <> "." And filename <> ".." Then
J = J + 1
ReDim Preserve strFileName(J+1)
strFileName(J) = filename & ".txt"
End If
filename = Dir ' 查找下一个文件。
Loop