选择某个文件夹后，读取文件夹中的所有文件名，并显示。
代 码:
以下代码放某个按钮的单击事件中。
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 “”读取成功。””
声明：本站部分文章及图片源自用户投稿，如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢！