Import a csv and txt file, then rename the files as "csv" and "txt"?

I would like to import a csv and a txt file as two sheets, then have the program automatically rename the csv file as "csv" and txt file as "txt"

Right now, I have a code that imports the two files, but names them as "temp1" and "temp2". How do I have excel recognize the file types and rename it?

Please Login or Register  to view this content.

Edit: Removed some of the extra comments I left in the code

Please Login or Register  to view this content.

Originally Posted by Exceloof

Thank you! Repped (:

Why is there +1 in

Please Login or Register  to view this content.

InStrRev(fname, "\") finds the position in the string of the first "\"from right to left. Everything after that position is the filename. You don't want to include the "\" in the file name so you +1