如何统计某个目录及子目录下后缀为*.exe的文件数？

[ynduanlian]

如何统计某个目录及子目录下后缀为*.exe的文件数？

[用户 昵称]

dir

[用户 昵称]

    Dim fPath As String, sName As String, n As Integer
    
    fPath = "c:\"
    sName = Dir(fPath & "*.txt")
    
    Do Until sName = ""
    n = n + 1
    sName = Dir()
    Loop
    
    Debug.Print n

[嗷嗷叫的老马]

需要再加个递归

[z_wenqian]

Dim n As Long

Private Sub Command1_Click()
Call a("E:\")
Debug.Print n
End Sub

Sub a(sDir As String)
Dim fs, ds, d, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set ds = fs.getfolder(sDir)
For Each f In ds.Files
If UCase(Right(f.Shortname, 3)) = "EXE" Then n = n + 1
Next f
For Each d In ds.SubFolders
a d.Path
Next d
End Sub

[z_wenqian]

去Dos下，运行"dir /s /b *.exe >file.txt"，统计file.txt行数，这样运行最快。文件名和路径名全有了。