Folder properties

[lance01]

Hi all,

I'm looking for a simple code that can obtain the properties of a windows folder.

On windows if you right click a folder and go to properties you can obtain the number of files/number of folders etc. in a few seconds. However, if you use the recursive method of looking through each folder and subfolder it can take minutes!

I know its possible to get file attributes so is it not possible to get folder attribute of some sort??

Thanks for your help.

 

[Domenic]

Have a look at the FileSystemObject object...

 

[lance01]

Hi Domenic,
I've looked at FSO and so far have found the following...It tells me the size of the folder but I cannot find an attribute that gives you the number of files and folders in all subfolders of the specified folder like you would find by right clicking a folder and going to properties.
Any ideas????


Sub test2()

ShowFolderSize ("C:\Users\Dell\Desktop\Folder1")

End Sub





Function ShowFolderSize(filespec)

Dim fs, f, s

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(filespec)

s = UCase(f.Name) & " uses " & f.Size & " bytes."

MsgBox s, 0, "Folder Size Info"



a = f.Attributes

B = f.DateCreated

C = f.DateLastAccessed

D = f.DateLastModified

E = f.Drive



End Function

 

[Domenic]

To count files...

f.Files.Count

To count subfolders...

f.SubFolders.Count

But you'll have to use the recursive method to count the number of the files, folders, and subfolders within a specified folder.