Creating Excel List of Files, Subfolders, and File Sizes Using VBA Macro

Hello,

I am facing the problem of preparing an excel list of files in folders and subfolders. The problem is that in a specific location (e.g. C: \ Files) I put a certain set of folders, usually 5 polders, then I need to download data from excel files located in these folders and subfolders. I have a macro that retrieves data from folios, but it requires that the macram file be in the last subfolder with excel files, and that the macro would download the list of subfolders from the C: \ Files location. I would like to mention that the depression looks like this: C: \ Files \ Subfolder (usually 5) \ Subfolders (usually 6) \ excel (xlsx) files. A file size would also be useful. Ultimately, I would like the list in excel to be created:

Location Files File size
C: \ Files \ Subfolder 1 \ Subfolder1 | file1.xlsx | 540
C: \ Files \ Subfolder 1 \ Subfolder1 | file2.xlsx | 540
C: \ Files \ Subfolder 1 \ Podfolder2 | file1.xlsx | 540
C: \ Files \ Subfolder 1 \ Subfolder ... | file1.xlsx | 540
C: \ Files \ Subfolder 2 \ Podfolder1 | file1.xlsx | 540
C: \ Files \ Subfolder 2 \ Podfolder2 | file1.xlsx | 540
C: \ Files \ Subfolder 2 \ Subfolder ... | file1.xlsx | 540
C: \ Files \ Subfolder 3 \ Podfolder1 | file1.xlsx | 540
C: \ Files \ Subfolder 3 \ Subfolder ... | file1.xlsx | 540

https://technet.microsoft.com/pl-pl/library/j...ch-plikow-w-folderze-i-jego-podfolderach.aspx
http://www.apocotenexcel.pl/subfolders.htm
http://ms-news.pl.office2000.narkive.com/lN6HRwVd/katalogi-podkatalogi-pliki-vba

slawek1100 wrote:

File size

VBA - F1 - FileLen

I saw these hints but I have a problem with them, namely the solution:
http://www.apocotenexcel.pl/subfolders.htm
my excel doesn't recognize the "colFilesFullNames" command
while in:
http://ms-news.pl.office2000.narkive.com/lN6HRwVd/katalogi-podkatalogi-pliki-vba
excel does not recognize the "With Application.FileSearch" command
I have Excel 2016

Opss .. for me max XL2007

It's a pity I'll keep looking. Thanks for the help

Added after 27 [minutes]:

I was able to determine that Application.Filesearch has been down since excel 2010, but I don't know what to replace

And what if "ordinary" Dir?

That would be it, but it is already too late, or I do not have the knowledge to correct this code to the system I need, i.e. where to insert a loop that will create a path in wheel A, in file B the name of the file and in file C its size

slawek1100 wrote:

That would be it but it is too late ...

THIS IS IT ... ... and I don't think it's too late for anything ... ... e.g. for a brewery ... ... well, unless it's about quotes from Stachura ... ... and certainly not too late to thank a colleague adamasowi_nt ...

slawek1100 wrote:

where to insert the loop that will create

No need ... loops are already ... one additional variable per row counter and game cabinet ...

adamas_nt wrote:

And if so "ordinary" Dir'em ...

With the permission of a friend ... ...:

GOD, IT IS IT !!!! it will save me a lot of time. BEER for you. Thank you very much!!!