VBA Get File Attributes !!!!

Hi

I am using the following formula to try and get file attributes on a shared drive. I am currently running into a few issues that I am wondering if I can get some guidance and or assistance in. The issues with the formula at the moment are:

1. The formula is looping for a long time and is causing excel to crash in particular if it is reading more files (not more than 65000 as stipulated in the formula)
2. At the moment the formula works fine if I am manually directing it to subfolders etc but if I point it towards a primary folder it crashes or takes a long time to return results. Is there a way I can perhaps try and speed up this process?

The objective is to use this for Document Control purposes. I want to be able to run the code and be able to extract data in relation to the path, file name, format, last accessed and so forth. The results have to be returned in excel where I have a database that I am collating all of the information together.

PS: THE BUTTON TO RUN THE CODE IS ON THE INTRO WORKSHEET TAB

Code:

Please Login or Register  to view this content.

[/QUOTE]

Hi,

Can you add code tags to your post please? We are not supposed to answer until you do so.

By the way, the code in your question is not in your file.

I do not see any immediate bottlenecks although this part

Please Login or Register  to view this content.

does not need to be run for each file in the folder- and similarly in the recursive routine this part

Please Login or Register  to view this content.

especially as it has already been set properly using

Please Login or Register  to view this content.

It is possible there may be a faster API function that could be useful (API calls are usually 2-3 times faster than FSO in my experience) but I am unaware of which one might return the last 4 information items.