s ftp=##class(%Net.FtpSession).%New()
s ok=ftp.Connect(server,user,password,port)
s ftp.Timeout = 100
i ok {
s ok=ftp.SetDirectory(directory)
i ok {
n files,file
s ok=ftp.NameList(directory,.files)
i ok {
f i=1:1:files.Count() {
s file=files.GetAt(i)
i (ftp.SetDirectory(file)) {
d ftp.SetToParentDirectory()
continue
}
s fname=$p(file,"/",$l(file,"/"))