count the number of files in a folder 1

[scottian]

can anyone help with this.
i need to count the number of files in a location,
im using the code below but access seems to stick

---------------------------------------

Function CountCSV_files()
Dim FileName As String
Dim Count As Single

Count = 0
FileName = Dir("C:/*.csv&quot
If FileName <> &quot;&quot; Then
Do Until FileName = &quot;&quot;
Count = Count + 1
Loop
MsgBox Count
End If

---------------------------------------

any help is much appreciated

 

[CajunCenturion]

Couple of things that you need to take into account.

First of all, the solution to the problem is that you need to add a subsequent call to Dir inside the loop:

FileName = Dir(&quot;C:/*.csv&quot
If FileName <> &quot;&quot; Then
Do Until FileName = &quot;&quot;
Count = Count + 1
FileName = Dir
Loop

Also, be aware that if you have a sub-directory which meets that file qualitification (in this case unlikely), it will also be counted.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[scottian]

cajun,
i have awarded you a star. the advice was perfect.
thanks

 

[CajunCenturion]

Thank you scottian, and glad I could help.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein