How to read Number of Files?

[Cap2010]

HI,

Without any interface, want to read a folder
and to count number of files in a folder.
How do I count number of files in a folder?

Please help.

Cap

 

[mkuan]

Check out "FindFirstFile", "FindNextFile" and "FindClose" API calls.

I'm sorry I can give u some examples, because they're stuff I wrote for a client.


Min.

 

[Foada]

Here is some code for you

'Start a new project and add a command button named cmdListFiles
'and then add a reference to the Microsoft Scripting Runtime
Private Sub cmdListFiles_Click()
Dim fso As FileSystemObject
Dim fFile As File
Dim fFolder As Folder

Set fso = New FileSystemObject
Set fFolder = fso.GetFolder(App.Path) 'Open the proper folder path here
Print fFolder.Files.Count

'Clean up the objects
Set fso = Nothing
Set fFile = Nothing
Set fFolder = Nothing
End Sub

Let me know if this helps. If you choose to battle wits with the witless be prepared to lose.