Hello,
I have a folder full of txt files and I want to rename them using a vba sub routine. I want each file to be renamed to a string that is constructed from the contents of the first line of each file. I am planning on concatenating strings using the Mid() function on the first line of each file. I just don't know how to loop through the files, single out the first line, and rename the file. Any help would be much appreciated.
Cheers!
Hello bruppert,
Can you post one the text files as an example along with what in the first line is to be used for the new name?
Sincerely,
Leith Ross
Remember To Do the Following....
1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.2. Thank those who have helped you by clicking the Starbelow the post.
3. Please mark your post [SOLVED] if it has been answered satisfactorily.
Old Scottish Proverb...
Luathaid gu deanamh maille! (Rushing causes delays!)
Hi Leith,
Unfortunately I cannot post any of the files. The first line is a string of dates and other characters. Here is the code that I use to create the file name from the first line
id = Mid(firstlineoffile, 1, 3)
date1 = Mid(firstlineoffile, 5, 8)
date2 = Mid(firstlineoffile, 15, 8)
FileName = id & date1 & date2 & ".txt"
Last edited by bruppert; 07-02-2019 at 04:22 PM.
Hello bruppert,
Thanks for the update. Will the folder always the same and if so then what is the path? If not I can add a folder selector to the macro.
I also need to get contents from the second line of the file. Here is the updated filename constructor code.
id = Mid(firstlineoffile, 1, 3)
date1 = Mid(firstlineoffile, 5, 8)
date2 = Mid(firstlineoffile, 15, 8)
signal = Mid(secondlineoffile, 1, 3)
FileName =signal & id & date1 & date2 & ".txt"
Hi Leith,
The folder changes. New data comes in every month and we keep separate folders for each month.
If possible, I would like to keep the folder the same. For example, I select a folder from the selector which contains all the txt files. The files are then renamed but are kept in the same folder.
Hello bruppert,
You can change the path from "C:\Test" to where your files are located.
Please Login or Register to view this content.
Hi Leith,
This is not the first time you've helped me out. This solves many issues. Many thanks for the timely replies!
Cheers,
bruppert
How do I mark as solved?
Hello bruppert,
You're welcome.
Select Thread Tools from the menu link above and mark this thread as SOLVED.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks