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.