'// Instantiate Class



Sub testEDI()



    Dim objEDI As New OfficeEDI



    objEDI.doXfer



End Sub





'// Class OfficeEDI



Option Compare Database



Private WithEvents objSession As WinSCPnet.Session



Public Sub doXfer()



    Dim objOptions As New WinSCPnet.SessionOptions



    Set objSession = New WinSCPnet.Session



    objOptions.Protocol = Protocol_Sftp

    objOptions.Portnumber = 30

    objOptions.hostname = "@xxx.xxx.xxx.xxx"

    objOptions.UserName = "test"

    objOptions.Password = "xxxxxxxx"

    objOptions.SshHostKeyFingerprint = "ssh-dss 1024 xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx"



    objSession.Open objOptions



    If objSession.opened Then

        Debug.Print "Session Opened"

   objSession.putfiles "F:\FileName*", "//Test//*", False

    End If



    objSession.dispose



    Set objOptions = Nothing

    Set objSession = Nothing



End Sub



Private Sub objSession_FileTransferProgress(ByVal sender As Object, ByVal e As FileTransferProgressEventArgs)



    Debug.Print Format(e.overallprogress, "Percent")



End Sub



Private Sub objSession_FileTransferred(ByVal sender, ByVal e As TransferEventArgs)



    Debug.Print e.FileName & " To " & e.destination



End Sub

var zvSession = WScript.CreateObject('WinSCP.Session','sessionEvent_');

// This event won't fire

function sessionEvent_FileTransferProgress(sender, args) {

    WScript.echo('start');

}



// Although this one does

function sessionEvent_FileTransferred(sender, args) {

    WScript.echo(args.FileName);

    WScript.echo('end');

}