【Access示例】读取某文件夹下的所有文件名-will.miao
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


【Access示例】读取某文件夹下的所有文件名

发表时间:2018/9/7 8:52:33 评论(0) 浏览(10763)  评论 | 加入收藏 | 复制
   
摘 要:选择某个文件夹后,读取文件夹中的所有文件名,并显示
正 文:

代   码:

以下代码放某个按钮的单击事件中

    Dim p$, f$, k&
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then
            p = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    Me.Text76 = p
    If Right(p, 1) <> "\" Then p = p & "\"
    f = Dir(p & "*.*")
    Me.list文件名.RowSource = ""
    k = 1
    Do While f <> ""
        k = k + 1
        Me.list文件名.AddItem f
    Loop
    MsgBox "读取成功。", vbInformation


示   例:

点击下载此附件


演   示:

点击图片查看大图


Access软件网交流QQ群(群号:198465573)
 
 相关文章
返回长文件名的短文件名函数   【黄海  2004/11/18】
如何显示文件夹中的文件名  【竹笛  2007/5/22】
从文件的地址中取出文件名的函数  【从文件的地址中取出文件名  2007/10/13】
通过文件名获取完整路径方法二则  【江羽  2010/6/10】
获取文件名及路径函数集(源码实例)  【江羽  2010/9/25】
用Shell打开文件路径及文件名有空格的文件方法  【wsl  2012/4/3】
【示例组合】自动获取文件名按一定规律排序再重命名文件  【天外流星  2013/3/28】
Access开发平台--通用附件文件名自动生成,设计思路及实现代码  【小司  2017/4/8】
常见问答
技术分类
相关资源
文章搜索
关于作者

will.miao

文章分类

文章存档

友情链接