>'******************************************* >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 >Andy,