Dim $_						; general purpose var
  Dim $_File						; working file name
  Dim $_Src						; source path to files

  $_Src = 'C:\cryptoin'				; where the client files are written

  $_ = RedirectOutput('c:\crypto_ftp_out')	; open the output file (different than collection folder!)

  ; look for files
  $_File = Dir($_Src + '\*.txt')			; read the first dir entry
  While Not @ERROR
$Crypto = $_File
$gpg = "gpg -o c:\crypto_ftp_out\$CRYPTO --encrypt ae7ca727 C:\cryptoin\$CRYPTO"
? $gpg
shell $gpg
    Del $_Src + '\' + $_File				; then delete the source file
    $_File = Dir()					; read the next dir entry & repeat until done
  Loop							; continue until done
  $_ = RedirectOutput('')				; Close the output redirection

  Exit 0