获取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