asked on

VB Script: Dynamically rename files based on last date modified.

Hello experts,

I am looking for a script that rename files in a specific folder based on the lastdatemodified

Ex: File1.csv--->lastdatetemodified(2014,02,24)
File2.csv--->lastdatetemodified(2014,12,25)

Result after I run the script
File1_20140224.csv
File2_20141225.csv

Imagine that I modifie now File 1 and I re-run the script.

The result should be the following:
File1_20150224.csv
File2_20141225.csv

Additionally I would like to add the following log loops (for errors, I would like to output a log.txt file):
1-If folder path doesn't finish "\" add a back slash.
2- If the folder setup in which the script should rename the files doesn't exist echo.Wscript "the Folder with the following path doesn't exist"
3-If the files.count=0 echo.Wscript "Folder doesn't contains files to rename"

RobSampson

Hi, I think this script should cover all of your requirements. I have also added some extra checking to make sure that it replaces the date in the file name (on subsequent runs) with the new date modified.

Regards,

Rob.

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "C:\Temp\Scripts\EE"
strLogFile = "C:\Temp\Scripts\LogFile.txt"
If Right(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
If objFSO.FolderExists(Left(strLogFile, InStr(strLogFile, "\"))) = False Then
	WScript.Echo "Log cannot be created.  " & Left(strLogFile, InStr(strLogFile, "\")) & " does not exist."
Else
	Set objLog = objFSO.OpenTextFile(strLogFile, 8, True)
	WriteOutput Now & ": Script started"
	If objFSO.FolderExists(strFolder) = False Then
		WriteOutput strFolder & " does not exist."
	Else
		Set objFolder = objFSO.GetFolder(strFolder)
		If objFolder.Files.Count = 0 Then
			WriteOutput strFolder & " does not contain any files."
		Else
			For Each objFile In objFolder.Files
				dteModifiedDate = CDate(objFile.DateLastModified)
				strDate = Year(dteModifiedDate) & Right("0" & Month(dteModifiedDate), 2) & Right("0" & Day(dteModifiedDate), 2)
				strBaseName = objFSO.GetBaseName(objFile.Path)
				strExtension = objFSO.GetExtensionName(objFile.Path)
				strNewName = objFolder.Path & "\" & strBaseName & "_" & strDate & "." & strExtension
				If Len(strBaseName) > 9 Then
					If InStrRev(strBaseName, "_") = Len(strBaseName) - 8 Then
						strSuffix = Mid(strBaseName, Len(strBaseName) - 7)
						If IsNumeric(strSuffix) Then
							If IsDate(Left(strSuffix, 4) & "-" & Mid(strSuffix, 5, 2) & "-" & Mid(strSuffix, 7, 2)) Then
								strNewName = objFolder.Path & "\" & Left(strBaseName, Len(strBaseName) - 9) & "_" & strDate & "." & strExtension
							End If
						End If
					End If
				End If
				If StrComp(objFile.Path, strNewName, vbTextCompare) Then
					strOldPath = objFile.Path
					objFSO.MoveFile strOldPath, strNewName
					WriteOutput Now & ": " & strOldPath & " renamed to " & strNewName
				End If
			Next
		End If
	End If
	WriteOutput Now & ": Script finished"
	objLog.Close
End If

Sub WriteOutput(strMessage)
	WScript.Echo strMessage
	objLog.WriteLine strMessage
End Sub

Open in new window

Luis Diaz

ASKER

Hello Rob,

I tried to run your script and here are my remarks:

1-I have an error message (line 35 char 6) file not found.(I re-check folders variable and all is good)

2-The log file just make apears the following line:"2/25/2015 9:29:19 PM: Script started"

3-The file rename has been performed just for files which have a datemodified that contains contains current month (02/2015).

Thank you again for your help.

RobSampson

Oh whoops. On line 35, it can't find objFile.Path because it doesn't exist after the Move is executed. I have corrected that. Can you try again please?

Luis Diaz

ASKER

Hello Rob,
Do you have the revised verion of the script?

RobSampson

Sorry, forgot to mention that I updated the original script to correct the error. You can copy the code from above and try again.

Rob.

Luis Diaz

ASKER

Ok, thank you for this revised version.
I tested and I have some remarks:

1-Everything is ok till it got permission refused, I think (quite sure) this is caused because the script trying to rename the LogFile.txt, and writing on it at the same time. (I put the LogFile.txt in the same folder ;-)

2-Is there a way to add an additional loop excluding the logFile of the rename, and an error line "the file cannot be renamed, someone is editing the file additionnally if an error is encountered the script should continue to the next file. After that this script will be a 10/10 without any doubt§

ASKER CERTIFIED SOLUTION

RobSampson

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Luis Diaz

ASKER

Hello Rob,

I have tested and it works perfectly!
Thank you!

RobSampson

Great! If you ever need help understanding the code, let me know.

Thanks for the grade.

Rob.