How to Prompt a user to select a Folder.

A

Akash

Hi,

I am using the following codes to track our all the Excel file in a
specific folder.

Sub anotherfindfiles()
Application.ScreenUpdating = False
Dim FN As String ' For File Name
Dim ThisRow As Long
Dim MediaFileLocation As String
MediaFileLocation = "D:\Aki\Data\Excel\Formats\*.xls"
FN = Dir(MediaFileLocation)
Do Until FN = ""
ThisRow = ThisRow + 1
Cells(ThisRow, 1) = FN
FN = Dir
Loop
Application.ScreenUpdating = True
End Sub


Its working fine but the the i want that system should prompt me to
select the folder. I mean to say that as soon as the macro is started
it should ask to choose the folder with the browse function. and as
soon as the user selects a folder and click on Ok it should display
the list of excel files in the specific folder.

How can we do that.

Thanks

Akash Maheshwari
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Paste filenames into cells 2
How to debug class ? 9
how do i loop thru all the worksheets in 2 files one by one 0
Word macro that can call cells out of Excel for a find and replace 0
VBA - exporting serial letters to single documents 0
Macro to Select text from a point given to a specific word 2
Making a macro only work on certain files 2
Run macro on all files in a specific folder 3

Top