traversing file system vba

[microsoftknight]

Hi all,

I'm trying to write a macro that is given a directory as input, and looking
for .txt file in that directory and in all of that directory sub-directories, and those sub-directories sub-directories and so on ...
The result is a list of the .txt files found.

Is that possible?
Any help would be appriciated

[Trebor76]

Hi there,

Have a look at the attached where once the input (yellow shaded) cells are entered and the user then clicks the List Files button, every file that matches the file (extention) type (B2) for the entered directory (B1) are listed from cell A3 onwards.

HTH

Robert

[jindon]

Please Login or Register  to view this content.

[Trebor76]

Hi jindon,

This is very clever!! Just one thing, for large lists (i.e. say all *.txt files from the C drive) it bombed out - any ideas

Well done.

Robert

[jindon]

Hi jindon,

This is very clever!! Just one thing, for large lists (i.e. say all *.txt files from the C drive) it bombed out - any ideas

Well done.

Robert

Probably, caused by Transpose Function.
Add to Sub test()

Please Login or Register  to view this content.

Delete in GetAllFiles()

Please Login or Register  to view this content.

and change to

Please Login or Register  to view this content.

Then delete transpose function in ListAllFiles()

Please Login or Register  to view this content.

One this more
change to Variant array

Please Login or Register  to view this content.

[Trebor76]

Must be me, but it's crashing. Would you mind re-posting the entire (amended) code?

[jindon]

If it still crahses, it may be other factor.

Please Login or Register  to view this content.