Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
Private Function EncryptFile(FilePath, RcptKeyId) Set fsObj = CreateObject("Scripting.FileSystemObject") Set PGP = CreateObject("NSDPGP3Lib.PGP") Set File = fsObj.GetFile(FilePath) Public_Ring = "c:\Test.pkr" Privite_Ring = "c:\Test.skr" OutputFilePath = Replace(File.Name, ".xls", "") Call PGP.EncryptFile(Public_Ring, Privite_Ring, FilePath, OutputFilePath, BINARY_FILE, BINARY_FILE, RcptKeyId) Set PGP = Nothing Set fsObj = Nothing End Function
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
7 Experts available now in Live!