Here is the complete code:
'VB Script - Archive FTP Files (pgp format)
Dim filesys, file, folderName, objFile, folderObj, objEmail, fileColl, objRegExp, newFile
Set filesys = CreateObject("Scripting.FileSystemObject")
folderName = "e:\ftpdata\fromtravelers\"
Set folderObj =...