How to use a flexible folder address rather than the current one?

Hi, I found a macro below which can list ALL the file names in the same folder as the saved macro file. My question is: how to adapt the code to allow a more flexible folder as specified, for example, C:\Users.

Please Login or Register  to view this content.

I'm still looking for a help

The location is:

Set baseFolder = FSO.GetFolder(ThisWorkbook.Path)

How can I change this to folder: C:\Users

hi alice2011, try this option (new lines are underlined):

Please Login or Register  to view this content.

Hi watersev, I totally feel amazed by this great improvement of the code. The new one is very flexible to allow me to choose the folder. Really good . Hope others can use it too.

Thanks for the great help.

Sorry to come back. I ran the code and it works ok. But sometimes it failed to work and issued an error message as:

Run-time error '-2147217887 (80040e21)'):
Multiple-step operation generated errors. Check each status value.

The code may have some drawback behind which I don't know (I found it online).

Anyone knows?