选择某个文件夹后，读取文件夹中的所有文件名，并显示。
代 码:
以下代码放某个按钮的单击事件中。
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
示例下载: (在“了解更多”里下载）
演 示:
