현재 디렉터리의 파일 리스트

Public Sub ListESY()
Const strFolder As String = ".\"
Const strPattern As String = "*.*"
Dim strFile As String
strFile = Dir(strFolder & strPattern, vbNormal)
Do While Len(strFile) > 0
    Debug.Print strFile
    MsgBox (strFile)
    strFile = Dir
Loop
End Sub