Method SFTPDir(ftpserver, username, password) As %Status
{
set ssh = ##class(%Net.SSH.Session).%New()
set status = ssh.Connect(ftpserver)
set status = ssh.AuthenticateWithUsername(username,password)
//open an SFTP session and get that returned by reference
set status = ssh.OpenSFTP(.sftp)
//get a list of files
set status = sftp.Dir(".",.files)
set i=$ORDER(files(""))
while i'="" {
write $listget(files(i),1),!
set i=$ORDER(files(i))
}
quit $$$OK
}