关于获取文件夹文件名称的问题

Private Sub Command1_Click()
    Dim i As Long
    Dim fso As Object
    Dim strFolderPath As String
    Dim objFolder As Object
    Dim objFile As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    strFolderPath = "C:\img"
    Set objFolder = fso.GetFolder(strFolderPath)

    If Not objFolder Is Nothing Then

        For Each objFile In objFolder.Files
            Debug.Print objFile.Name

        Next

    End If

    Set objFile = Nothing
    Set objFolder = Nothing
    Set fso = Nothing

End Sub