Set objFTP=New NotesFTPSession
With objFTP
.Connect serFtp$,ftpLogin$ , ftppass$, 0
.ChangeDirectory ftpDir$
vFiles=.Dir(mask$)
If Isempty ( vFiles ) Then Exit Sub
For n%=0 To Ubound(vFiles)
.GetFile vFiles(n%), pathname$+vFiles(n%), FTP_TRANSFER_TYPE_ASCII
.DeleteFile vFiles(n%)
Next
.Disconnect
End With
Delete objFTP