文件名不符合规范,改成
EncryptFile(fl, Values(0) & format(Date.Now, "yyyyMMdd HHmmss") & (".") & values(1), "fox123")