Public Sub Initialize(appDir As String, module As Object, eventHandler As String)
hostPath = hostFolder & appDir & "/" ' Full path at host
info.caller = module
info.handler = eventHandler
info.appFolder = appDir
hostFiles.Initialize
jobs.Initialize
sftp.Initialize("sftp", "username", "password", "sftp.provider.com", 22)
makeList
End Sub
' This routine automatically authenticates the RSA fingerprint check
Private Sub SFTP_PromptYesNo (Message As String)
sftp.SetPromptResult(True)
End Sub