oFSO = CREATEOBJECT("Scripting.FileSystemObject") >* lcfolder is the fully qualified >* directory name >oFolder = oFSO.GetFolder(lcfolder) >FOR EACH oFile IN oFolder.Files > oFile.Name = FORCEEXT(JUSTSTEM(oFile.Name) + TTOC(oFile.DateLastModified), JUSTEXT(oFile.Name)) >NEXTif I understand correctly.