폴더에 특정 파일 찾기, 파일갯수 dir

[올란도]

 Private Sub Command1_Click()
Dim filePath As String '폴더 이름 
Dim fileName As String '파일이름 또는 파일 확장자 
Dim nowFile As String '찾은 파일 저장 변수 
Dim temp As String '찾은 파일 전체 저장 변수 
Dim fileCount As Integer '파일 갯수 누적 
'사용변수 초기값 할당 
filePath = "c:\"
fileName = "*.txt"
temp = ""
fileCount = 0

nowFile = Dir(filePath & fileName, vbArchive)
    Do While nowFile <> ""   ' 파일찾기 시작 
        temp = temp & vbCrLf & nowFile
        nowFile = Dir ' 다음 항목을 읽음 
        fileCount = fileCount + 1
    Loop
MsgBox "파일 갯수 " & fileCount & vbCrLf & temp
End Sub

마이토큰으로 소스코드를 변환시켰습니다. 마이토큰은 웹에디터 기능이 있는 웹게시판에 공백과 탭으로 들여쓰기된 소스코드를 자동으로 HTML코드로 변환 시켜 웹에서 들여쓰기가 적용된 상태로 붙여넣기 할 수 있는 무료 프로그램입니다.

마이토큰정보

[정재공]

감사합니다. 잘쓸께요~ ^^

[toujours]

고마워요!!

[쿠우우]

감사합니다

[수호천사_이브]

감사요
^^

[vblove]

감사합니다.