7449
社区成员
- 主页
求助！怎样将某文件夹下的很多文件名称一次读入变量（有这样的控件吗？）
怎样将某文件夹下的很多文件名称读入变量（有这样的控件吗？）
例如：
c:\aaa\1.txt -------->变量a
c:\aaa\2.txt -------->变量b
... ...
... ...
例如：
c:\aaa\1.txt -------->变量a
c:\aaa\2.txt -------->变量b
... ...
... ...
...全文
请发表友善的回复…
发表回复
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
通过数组下标即可访问到文件名称
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
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 控件同步，并使它们之间彼此同步。
filelistbox就行了，它的listcount返回符合条件的文件总数，然后你就可以读取了（和读取list的一样）
//MSDN
FileListBox 控件
在运行时，在 Path 属性指定的目录中，FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。
语法
FileListBox
说明
设置 List、ListCount 和 ListIndex 属性，可以访问列表中的项目。如果需要显示 DirListBox 和 DriveListBox 控件，那么可以编写代码，使它们与 FileListBox 控件同步，并使它们之间彼此同步。