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

时　间:2018-09-07 08:52:33
作　者:缪炜   ID：24010  城市：江阴
摘　要:选择某个文件夹后，读取文件夹中的所有文件名，并显示
正　文:

代   码:

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

    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

示   例:

点击下载此附件

演   示: