엑셀
현재 디렉터리의 파일 리스트
건덕지만세
2013. 3. 16. 03:08
반응형
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
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