counting documents in windows explorer using VBA

[tgrant29]

HELP!!! Before I go completely insane....I have a macro that is set up to count the number of files in a folder so if all my files are there it will print the files to a prn file and print the entire batch. However it appears to be counting the files that start with the ~. Is there a way to set it to only count the documents that are not temporary and only .doc files?
Thanks!
Tina

[BrianB]

This will do the job :-

'------------------------------
Sub test()
    Dim MyCount As Integer
    Dim MyName As String
    MyName = Dir("c:\*.doc")
    Do While MyName <> ""
        MyCount = MyCount + 1
        MyName = Dir
    Loop
    MsgBox (MyCount)
End Sub
'-------------------------------

[tgrant29]

Thanks for your response. I tried your code. tweeked it a little because I pass in the path and I come up with 0 even though there are 2 files in there. Here's what it looks like:

Dim MyCount As Integer
Dim MyName As String
MyName = Dir(target & "*.doc")
Do While MyName <> ""
MyCount = MyCount + 1
MyName = Dir
Loop
MsgBox (MyCount)

Here what I was using...

Set fs = CreateObject("Scripting.FileSystemObject")
Set fc = fs.GetFolder(target)
intFileCount = fc.files.Count

This wasn't working, so I tried this...

With Application.FileSearch
.LookIn = (target)
.FileType = msoFileTypeWordDocuments
If .Execute() > 0 Then
intFileCount = .FoundFiles.Count
End If
End With

It appeared to work, but now I have complaints again today...

Help!!!

[Ecniv]

Originally posted by tgrant29

Dim MyCount As Integer
    Dim MyName As String
    MyName = Dir(target & "*.doc"[color=red], 63)
    Do While MyName <> "" and left(MyName,1)<>"~" and not(MyName="." or MyName="..")[/color]
        MyCount = MyCount + 1
        MyName = Dir
    Loop
    MsgBox (MyCount)

The other two methods, dunno
Prolly FSO would work, but you'd need to read up on methods/properties.

As to Application.FileSearch, it may only find certain filetypes and not all filetypes (it is part of the VBA App...)


Vince

[tgrant29]

Thanks Vince! Much appreicated!