Bir dizinde ESY uzantılı tüm dosyaların listesi nasıl alınır?

Question

VBA'da, belirli bir dizinde belirli bir uzantıya sahip tüm dosyaların listesini nasıl alabilirim? esy uzantılı ilk dosyayı döndürür : ("\ yourPath \ * esy C" vbNormal) i excel 2007

Answer 1

Yoruma cevaben "kaç kere kaçacağını biliyorum?", bu örnek, adları strPattern ile eşleşen tüm dosyaları listeleyene kadar çalışır. strFolder sabitini değiştirin.

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

Dir kullanıyorum çünkü

i Application.FileSearch yapamadığını duyuyorum. Her bir sonraki Dir() çağrısı sonraki çağrıyı döndürür.

Answer 3

Alternatif seçenek: Nesnelerin FileSystemObject ailesi için "Microsoft Scripting çalışma zamanı" kitaplığı (Araçlar kontrol ... Kaynaklar) kullanın. Aşağıdaki gibi bir şey olabilir:

Answer 4

Aşağıdaki kod, FileSystemObject öğesini kullanmaktan yaklaşık 19 kat daha hızlı çalışır. Makinemde, üç farklı dilde 4000 dosya bulmak FileSystemObject kullanarak 1,57 saniye sürdü, ancak bu kodu kullanarak sadece 0.08 saniye sürdü.

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 

Örnek kullanım:

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

("DoEvents" gerekli değildir, ancak gerekirse kırın/Pause kullanmasını sağlar.)