set source_dir = "C:\data\source_files"
set archive_dir = "C:\data\archive"
set destination_dir = "C:\data\encrypted_files"

WORKINGDIR source_dir
:loop
GETNEXTFILE "*"
IFERROR RETURN $ERROR_SUCCESS
set destination_file = %nextfile + ".pgp"
PGPENCRYPT %nextfile destination_file /encryptfor="Richard Tracy"
MOVE %nextfile archive_dir
MOVE destination_file destination_dir
GOTO loop