Count the Number of Files in a Folder

[Jim]

I’m sorry if this is a repost, I posted the same question yesterday but it
never appeared on the site.

Could someone please show me an example or examples of how to return the
number of files in a folder? I don’t need anything except the total number
of files in the folder. I’d like to use VB but, I’m open to any solution…

Thanks in advance,

Jim

 

[Alex Dybenko]

Hi,
something like this:

strFile = dir("c:\*.*")
do while len(strFile)>0
I=I+1
strFile=dir
loop

debug.print I

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[ryguy7272]

Try this:
Sub Demo()

MsgBox FileCountA("C:\temp\")
MsgBox FileCountB("C:\temp\")

End Sub

Function FileCountA(Path As String) As Long
Dim strTemp As String
Dim lngCount As Long

strTemp = Dir(Path & "*.*")
Do While strTemp <> ""
lngCount = lngCount + 1
strTemp = Dir
Loop

FileCountA = lngCount

End Function
Function FileCountB(Path As String) As Long

Dim objFSO As Object

Set objFSO = CreateObject("Scripting.FileSystemObject").GetFolder(Path)
FileCountB = objFSO.Files.Count

Set objFSO = Nothing

End Function

 

[Jim]

Thanks, function FileCountB works great!

Jim

Try this:
Sub Demo()

MsgBox FileCountA("C:\temp\")
MsgBox FileCountB("C:\temp\")

End Sub

Function FileCountA(Path As String) As Long
Dim strTemp As String
Dim lngCount As Long

strTemp = Dir(Path & "*.*")
Do While strTemp <> ""
lngCount = lngCount + 1
strTemp = Dir
Loop

FileCountA = lngCount

End Function
Function FileCountB(Path As String) As Long

Dim objFSO As Object

Set objFSO = CreateObject("Scripting.FileSystemObject").GetFolder(Path)
FileCountB = objFSO.Files.Count

Set objFSO = Nothing

End Function