디렉토리에 ESY 확장자가있는 모든 파일의 목록을 가져 오는 방법은 무엇입니까?

Question

VBA에서 특정 디렉터리의 특정 확장명을 가진 모든 파일 목록을 얻으려면 어떻게해야합니까? ESY 확장자를 가진 첫 번째 파일을 반환 : (". \ yourPath \ * ESY C", vbNormal) 내가 엑셀 ​​2007

Answer 1

내 댓글 에 대한 답변으로 "얼마나 자주 실행해야합니까?"이 예제는 strPattern과 일치하는 이름을 가진 모든 파일을 나열 할 때까지 실행됩니다. strFolder을 상수로 변경하십시오.

Public Sub ListESY() 
Const strFolder As String = "C:\SomeFolder\" 
Const strPattern As String = "*.ESY" 
Dim strFile As String 
strFile = Dir(strFolder & strPattern, vbNormal) 
Do While Len(strFile) > 0 
    Debug.Print strFile '<- view this in Immediate window; Ctrl+g will take you there 
    strFile = Dir 
Loop 
End Sub 

Answer 2

디렉터리 사용하고 있기 때문에

은 내가, Application.FileSearch을 할 수없는입니다. Dir()을 호출 할 때마다 다음 호출이 반환됩니다.

Answer 3

대체 옵션 : 개체의 FileSystemObject 제품군에 대해 "Microsoft Scripting Runtime"라이브러리 (도구 ... 참조)를 사용하십시오. 아마도 다음과 같은 것일 수 있습니다 :

Public Function ESYFileCount(dir_path as String) as Long 

Dim fil As File 

    With New FileSystemObject 
     With .GetFolder(dir_path) 
      For Each fil In .Files 
       If LCase(Right(fil.Name, 4)) = ".esy" Then 
        ESYFileCount = ESYFileCount + 1 
       End If 
      Next 
     End With   
    End With 

End Function 

Answer 4

다음 코드는 FileSystemObject를 사용하는 것보다 약 19 배 빠르게 실행됩니다. 내 컴퓨터에서 FileSystemObject를 사용하여 세 개의 다른 부서에서 4000 개의 파일을 찾는 데 1.57 초가 걸렸지 만이 코드를 사용하는 데는 0.08 초 밖에 걸리지 않았습니다.

Public Function CountFilesWithGivenExtension(_ 
      i_strFolderWithTerminalBackslant As String, _ 
      i_strExtensionIncludingPeriod As String _ 
     ) As Long 

     If Len(Dir$(i_strFolderWithTerminalBackslant & "*" _ 
      & i_strExtensionIncludingPeriod)) > 0 Then 

      CountFilesWithGivenExtension = 1 

      While Len(Dir$) > 0 

      CountFilesWithGivenExtension = _ 
        CountFilesWithGivenExtension + 1 

      DoEvents 

      Wend 
     Else 
      CountFilesWithGivenExtension = 0 
     End If 

    End Function 

샘플 사용 :

Debug.Print CountFilesWithGivenExtension("C:\", ".ex*") 

(이하 "DoEvents는"필요하지 않습니다,하지만 당신은 필요한 경우 브레이크/일시 정지를 사용할 수 있습니다.)