代 码:
以下代码放某个按钮的单击事件中
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
示 例:
点击下载此附件
演 示: