求助!怎样将某文件夹下的很多文件名称一次读入变量(有这样的控件吗?)

sxczwxf 2003-12-13 12:28:45
怎样将某文件夹下的很多文件名称读入变量(有这样的控件吗?)
例如:
c:\aaa\1.txt -------->变量a
c:\aaa\2.txt -------->变量b
... ...
... ...


...全文
15 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
SoHo_Andy 2003-12-13
将名称保存在数组中,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
回复
wxf2008 2003-12-13
他们有.drive 和.path呀
回复
hhjjhjhj 2003-12-13
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

回复
sxczwxf 2003-12-13
DirListBox 和 DriveListBox 和FileListBox 怎么同步???
回复
踏平扶桑 2003-12-13
有啊
filelistbox就行了,它的listcount返回符合条件的文件总数,然后你就可以读取了(和读取list的一样)
//MSDN
FileListBox 控件


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

语法

FileListBox

说明

设置 List、ListCount 和 ListIndex 属性,可以访问列表中的项目。如果需要显示 DirListBox 和 DriveListBox 控件,那么可以编写代码,使它们与 FileListBox 控件同步,并使它们之间彼此同步。
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7449

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告