Count files in a Folder!
 

Hi Don.

Thanks a lot. But, if instead of the message Box the
value "returns" to a cell, how would the programing Be?

Thank´s a lot!!
SpeeD



-----Original Message-----
try this

Sub filescount()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\a"
.SearchSubFolders = True
.Filename = "*.*"
If .Execute() 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
' For i = 1 To .FoundFiles.Count
' MsgBox .FoundFiles(i)
' Next i
Else
MsgBox "There were no files found."
End If
End With


End Sub
"SpeeD72" wrote in message
...
Hi guys.

How can a make a formula that gives me the "count" of
files in a Folder?

If it ins´t possible in a formula can i make a macro that
gives me this "Count" in a cell? how?

Thanks a lot
SpeeD72


.

Count files in a Folder!
 

MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
range("a1")=.foundfiles.count

"SpeeD72" wrote in message
...
Hi Don.

Thanks a lot. But, if instead of the message Box the
value "returns" to a cell, how would the programing Be?

Thank´s a lot!!
SpeeD



-----Original Message-----
try this

Sub filescount()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\a"
.SearchSubFolders = True
.Filename = "*.*"
If .Execute() 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
' For i = 1 To .FoundFiles.Count
' MsgBox .FoundFiles(i)
' Next i
Else
MsgBox "There were no files found."
End If
End With


End Sub
"SpeeD72" wrote in message
...
Hi guys.

How can a make a formula that gives me the "count" of
files in a Folder?

If it ins´t possible in a formula can i make a macro that
gives me this "Count" in a cell? how?

Thanks a lot
SpeeD72


.