Button to Search Subfolders for files

[lkelsen]

you are welcome.


for RTE 52:
do names of the files or folders contain, lets say, non-english characters?

Mancubus, nah there arent any non-english characters as far as i am aware?

apo, your code almost achieves what i'm after except that it places " " marks at either end of the string when in the spreadsheet?? Also it keeps the file extension in the string but, I can use this to my advantage in another function i'm writing.

Luke

[apo]

Try changing it to:

Z = Split(Replace(Replace(CreateObject("wscript.shell").exec("cmd /c forfiles /P " & fPath & " /S /M  *.xl?? /c ""cmd /c echo  @file """).stdout.readall, Chr(32) & Chr(34), ""), Chr(34), ""), vbCrLf)

[lkelsen]

Works perfect thank you apo!

[apo]

Also..

To just get the filename (no extension)..

Replace @FILE with @FNAME in that line of code..

See here:

https://technet.microsoft.com/en-au/.../cc753551.aspx

[snb]

Although an interesting option, on my XP system I wasn't able to get any result.

[apo]

I read somewhere that (for XP) you can download the Forfiles.exe and copy it to: C:\ windows\system32

I don't have XP.. I wonder if that will make it work..

[lkelsen]

Also..

To just get the filename (no extension)..

Replace @FILE with @FNAME in that line of code..

See here:

https://technet.microsoft.com/en-au/.../cc753551.aspx

Awesome, works great!

All of you here have been such a great help which i appreciate, as for me everything is trial and error with my entry level understanding of VBA, and even having the mind of approach to programming in general.

No obligation snb, mancubus and apo, but are you able to explain how each part of your code works? Always nice to know why it does this, that and so on..

Cheers,

Luke