Count of folders and files (WinXP/XL 2003-UK)

Topic

New Reply

Hi,

When right clicking a folder – “Properties”, the General tab ao. displays “Contains” and then states counts of folders and files.

How are those easily counted – would anyone willing to share, have a snippet that does this job fast and efficient?

Been looking to use File System Object (FSO), but I believe there must be other ways that are easier and more effecient as well??

Would imagine there was some kind of Win API function available for this kind of task…?

Reply | Quote

Replies

Working with FileSystemObject is quite easy:

Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim lngSubFolderCount As Long
Dim lngFileCount As Long
Set fld = fso.GetFolder(“C:MyFolder”)
lngSubFolderCount = fld.SubFolders.Count
lngFileCount = fld.Files.Count

Reply | Quote

Hi Hans,

Thanks – the “scripting” references you got set – are they to the “Microsoft Scripting Runtime” (scrrun.dll)??

Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.Folder

Got one main folder, with 350+ subfolders. Each subfolder have at least the single file I’m looking for (to update) directly in it. But some have had another subfolder added, so that I need to find the file to update in the subfolder instead.

Thus, I’m trying to see, if I with the “LookIn” and “SearchFolders” (http://msdn.microsoft.com/en-us/library/aa210046(office.11).aspx) – or any other method, can find an easy way to get a tree structure to traverse.

Subsequently I’ll need to write the changes to the files in a log file. With “change done”, “file name” and “folder”.

Reply | Quote

Scripting indeed refers to the Microsoft Scripting Runtime library – you need to set a reference to it in Tools | References…

In Office 2003 VBA you can use the Application.FileSearch object to search for files in a folder structure, but keep in mind that this has been removed in Office 2007, so if you plan on upgrading anytime soon, it’s better to avoid using Application.FileSearch.

Reply | Quote

Thanks, I’ll try to keep that in mind.

Reply | Quote

Take note Henrik, that the code as provided by Hans counts only the files and folders at the top level within the specified folder.

Reply | Quote