Try
Dim r As Reflector
r.Target = sftp
Dim cls As Object = r.RunMethod("getClass")
Dim rCls As Reflector
rCls.Target = cls
Dim field As Object = rCls.RunMethod2("getDeclaredField", "session", "java.lang.String")
Dim joField As JavaObject = field joField.RunMethod("setAccessible", Array(True))
Dim session As Object = joField.RunMethod("get", Array(sftp))
If session <> Null Then
Dim joSession As JavaObject = session joSession.RunMethod("setTimeout", Array(30000))
Log("SFTP timeout set to 30 seconds.")
End If
Catch
Log("Error setting SFTP timeout: " & LastException)
End Try