获取path目录下的所有文件的文件名（不包括子目录）

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