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"
LVL 1
LD16Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
RobSampsonConnect With a Mentor Commented:
Sure, no problem. Give this revision a try.

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "C:\Temp\Scripts\Audit"
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
				If StrComp(objFile.Path, strLogfile, vbTextCompare) <> 0 Then
					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) <> 0 Then
						strOldPath = objFile.Path
						On Error Resume Next
						objFSO.MoveFile strOldPath, strNewName
						If Err.Number = 0 Then
							WriteOutput Now & ": " & strOldPath & " renamed to " & strNewName
						Else
							WriteOutput Now & ": Unable to rename " & strOldPath & " to " & strNewName & ". Error " & Err.Number & ": " & Err.Description
						End If
						Err.Clear
						On Error GoTo 0
					End If
				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


Regards,

Rob.
0
 
RobSampsonCommented:
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

0
 
LD16Author Commented:
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.
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
RobSampsonCommented:
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?
0
 
LD16Author Commented:
Hello Rob,
Do you have the revised verion of the script?
0
 
RobSampsonCommented:
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.
0
 
LD16Author Commented:
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§
0
 
LD16Author Commented:
Hello Rob,

I have tested and it works perfectly!
Thank you!
0
 
RobSampsonCommented:
Great! If you ever need help understanding the code, let me know.

Thanks for the grade.

Rob.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.