tæl filer

Der er forskel på, om du åbner en skabelon, eller om du laver et nyt dokument, baseret på skabelonen. Er det, det færste er det nemt. Er det det andet, er det mere besværligt.

Denne kode tæller antallet af filer, der findes i mappen c:\test og skriver resultatet i A1 i det aktive ark.

Sub TaelFiler()

    Set fs = Application.FileSearch
    With fs
        .LookIn = "C:\test"
        .Filename = "*.*"
        If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
            Range("a1").Value = .FoundFiles.Count
        Else
            MsgBox "Der var ingen filer i mappen."
        End If
    End With

End Sub