'******************************************* Vbscript: '******************************************* Option Explicit Dim cJustName, cJustExt, cDtModified, cMonth, cDay Dim oFSO, oFolder, oFile Set oFSO = CREATEOBJECT("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder( "C:\Temp\" ) For Each oFile IN oFolder.Files cJustName = oFSO.GetBaseName( oFile.Name ) cJustExt = oFSO.GetExtensionName( oFile.Name ) cMonth = Right( "00" & Month( oFile.DateLastModified ), 2 ) cDay = Right( "00" & Day( oFile.DateLastModified ), 2 ) cDtModified = Year( oFile.DateLastModified ) & cMonth & cDay oFile.Name = cJustName & cDtModified & "." & cJustExt Next