如何显示文件夹中的文件名
时 间:2007-05-22 00:00:00
作 者:竹笛 ID:8 城市:上海 QQ:2851379730
摘 要:通过一个函数来显示指定文件夹中的文件名。
正 文:
一、代码部分
'示例制作:竹笛
'网站:www.umvsoft.com
'日期:2007-5-21
'函数摘自www.access911.net
Private Sub cmdOK_Click()
Dim ff() As String
Dim fn As Long
Dim i As Long
Dim mySource As String
Me.lstFile.RowSource = ""
If Not IsNull(Me.txtDisk) Then
'显示EXCEL文件,如果要显示Word文件,则改为*.doc
fn = TreeSearch(Me.txtDisk, "*.xls", ff())
For i = 1 To fn
If i > 1 Then
Me.lstFile.RowSource = Me.lstFile.RowSource & ";" & ff(i)
Else
Me.lstFile.RowSource = ff(i)
End If
Next
Else
MsgBox "请输入文件夹路径!", vbCritical, "提示"
End If
Me.lstFile.Requery
End Sub
Private Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String, sFiles() As String) As Long
Static lngFiles As Long
Dim lngIndex As Long
Dim strDir As String
Dim strSubDirs() As String
If Right(sPath, 1) <> "\" Then
sPath = sPath & "\"
End If
strDir = Dir(sPath & sFileSpec)
Do While Len(strDir)
lngFiles = lngFiles + 1
ReDim Preserve sFiles(1 To lngFiles)
sFiles(lngFiles) = sPath & strDir
strDir = Dir
Loop
lngIndex = 0
strDir = Dir(sPath & "*.*", 16)
Do While Len(strDir)
If Left(strDir, 1) <> "." Then
If GetAttr(sPath & strDir) And vbDirectory Then
lngIndex = lngIndex + 1
ReDim Preserve strSubDirs(1 To lngIndex)
strSubDirs(lngIndex) = sPath & strDir & "\"
End If
End If
strDir = Dir
Loop
For lngIndex = 1 To lngIndex
Call TreeSearch(strSubDirs(lngIndex), sFileSpec, sFiles())
Next lngIndex
TreeSearch = lngFiles
End Function
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)