Sleeper: Using VBA to count documents within a folder

[petedw]

Is there a way of telling vba to count all the word documents (.doc) in a folder and its subfolders and to refresh every 5 seconds to keep an up to date count?

I need it for a sum that i am doing. The reason i need it to refresh is that there are constantly word documents added into these folders.

Many Thanks

Pete

[Norie]

Is this user defined function any use?

Function Countword(strDir As String, bSubs As Boolean) As Long
    With Application.FileSearch
        .NewSearch
        .LookIn = strDir
        .Filename = "*.doc"
        .SearchSubFolders = bSubs
        .Execute
        Countword = .FoundFiles.Count
    End With
End Function

Use it in a worksheet like this:

=CountWord("C:\", FALSE)

Change FALSE to TRUE to search sub folders.

[Bob Phillips]

Is there a way of telling vba to count all the word documents (.doc) in a folder and its subfolders and to refresh every 5 seconds to keep an up to date count?

Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FilesystemObject")
    Debug.Print oFSO.getfolder("C:\myTest").Files.Count

[Norie]

xld

Can that be adapted to count a particular file type?