Sub Click(Source As Button)

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\HEW")

    i = 0
    Forall objFile In objFolder.Files
        i = i + 1
        buf = buf & objFile.Name & Chr(13)
    End Forall

    Msgbox "Total : " & i & Chr(13) & "----------------" & Chr(13) & buf

End Sub