Formule aantal bestanden in map

[Emmel]

Hai wizzkids,

Bestaat er in Excel een formule, waarbij het aantal bestanden in een map kunnen worden weergegeven?

B.v.d.

 

[edmoor]

Dat kan met een zelf gemaakte VBA functie in een module, een UDF dus:

Function AANTALBESTANDEN(Pad As String) As Long
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject").GetFolder(Pad)
    AANTALBESTANDEN = objFSO.Files.Count
    Set objFSO = Nothing
End Function

Aanroep: =AANTALBESTANDEN(A1)

 

[HSV]

Rechtstreeks kan ook.

Function AANTALBESTANDEN(Pad As String) As Long
 AANTALBESTANDEN = CreateObject("Scripting.FileSystemObject").GetFolder(Pad).Files.Count
End Function

 

[snb]

Of te gecompliceerd:

Sub M_snb()
    MsgBox Filter(Split(CreateObject("wscript.shell").exec("cmd /c dir G:\OF\*.* /a-d").stdout.readall, vbCr), "bestand(en)")(0)
End Sub