Hello

I have a folder of text files with a JAF extension. I want to rename the first one in the folder regardless of order to 2. E.G. uxc248.jaf to 2.jaf. How do I go about doing this?

Its part of a macro to import the file format it and then append to an existing file. Procedures is like this:
Change 1 file to 2.jaf
Move to another folder.
Import as text to a spreadsheet
Copy data
open a file
Paste as value at end of file
Clear values of imported data.
Delete 2.jaf
Repeat from beginning

Im stuck with what VBa code to use to rename the file. I can moved and delte the file

Thanks
Mike