Renaming the files and exporting to a specified folder

Hi All,

I work in back office team and I have to rename lot of files in a day and cut and paste them in relevant folders.
I know little about VB programming but I am not a Pro.

I need your help with a 2 part VB programming.

1st part :

The VBA macro/program should give me a option of inputting the location from where the macro/program will export all the files names and their types (e.g. xls, xlsx, doc, docx, jpeg, bmp, RAW, ppt, pptx, etc) to a excel sheet.

Eg.
If I store all the files (Excel, Images, Word docs, PPT, etc) in folder named "Week32" (Path: C:\Users\PeterW\Desktop\Week32\).
So irrespective of the VBA macro/program location, it should ask me location from where I need to import the names and file types of all the files.
I will put in (Path: C:\Users\PeterW\Desktop\Week32\) as input and run the above macro/program.
The program should generate a output with names and file types of all files stored in (Path: C:\Users\PeterW\Desktop\Week32\).

2nd part
I will copy the output from above macro/program and provide the relevant file namesand export destination against each of them.
Once I run the 2nd part of macro/program, it should rename the corresponding files and send them to specified folders.

Eg.

Untitled.png

PS: The file type should not change while giving a new name
Plz help !!!