选择某个文件夹后,读取文件夹中的所有文件名,并显示。
代 码:
以下代码放某个按钮的单击事件中。
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 “”读取成功。””
来源:733
声明:本站部分文章及图片转载于互联网,内容版权归原作者所有,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!