'点菜单(工程)下的(引用),勾选(Microsoft Scripting Runtime)确认
Private Sub Command1_Click()
List1.Clear
Dim fso As New FileSystemObject
Dim f As File
Dim fd As Folder
Set fd = fso.GetFolder(App.Path & "\文件")
For Each f In fd.Files
List1.AddItem f.Path
List1.AddItem f.Name
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024