Sub getFolderContent(path As String)
Dim objFolder, objFso, obj
Dim names
Set objFso = CreateObject("scripting.filesystemobject")
Set objFolder = objFso.getFolder(path)
For Each objFile In objFolder.Files
names = names & objFile.Name & vbCrLf
Next
MsgBox names
End Sub
本文介绍了一段使用VBScript来获取指定文件夹内所有文件名称的代码实现。通过创建FileSystemObject并调用其方法来读取文件夹,最后通过消息框展示文件名列表。
1267

被折叠的 条评论
为什么被折叠?



