Dim mssh As SSHJ
mssh.Initialize2("SSHJ",90)
mssh.AddHostKeyPromiscuousVerifier
mssh.AddAuthPassword(m.Get("s04"))
mssh.Connect(server,port,user)
Dim msftp As SSHJSFTPClient = mssh.GetSFTPClient
msftp.List(path)
wait for SSHJ_SFTPListFinished (Success As Boolean, Path As String, ListOfResourceInfo As List)
For Each obj As SSHJSFTPResourceInfo In ListOfResourceInfo
If obj.IsDirectory = False Then
datetime.dateformat = "dd/MM/yyyy"
dim dt as string = datetime.date(obj.getmtime) "always 19/01/1970"
end if
next