Files naming macro

[momo6]

Hi guys, I have the following macro script, I am facing a situation with a folder that contains many subfolders and inside them there is a lot of files, is there by any chance a possibility to modify this macro so instead of displaying the files inside it only, it displays the files inside it + the files inside the subfolders? Thank you very much.


Sub FetchNames()

Dim myPath As String
Dim myFile As String
myPath = Sheet1.[addr]
myFile = Dir(myPath & "*.*")

r = 5
Do While myFile <> ""
Cells(r, 1).Value = myFile
r = r + 1
myFile = Dir
Loop

End Sub

 

[momo6]

.
Here ya go ...

Rename Files Batch.xls

Man, I don't know how to thank you. But good stuff is going to happen to you

 

[Logit]

Glad to help.

 

[momo6]

Glad to help.

Do you have any email address?

 

[Logit]

Curious ... why ?

 

[momo6]

Curious ... why ?

I just need help with a graph if that is possible

 

[Logit]

Ok I understand but the Forum rules say you should post on the Forum so others can benefit from the information.

You can post the question in another POST and send me the link for me to look at if you want. That is acceptable.

Thanks.

 

[momo6]

Ok I understand but the Forum rules say you should post on the Forum so others can benefit from the information.

You can post the question in another POST and send me the link for me to look at if you want. That is acceptable.

Thanks.

Alright thanks, here is a link to the post: Graph Column Bars Formatting Based on Values