Post a reply

Before posting, please read how to report bug or request support effectively.

Bug reports without an attached log file are usually useless.

Options
Add an Attachment

If you do not want to add an Attachment to your Post, please leave the Fields blank.

(maximum 10 MB; please compress large files; only common media, archive, text and programming file formats are allowed)

Options

Topic review

Arun

Re: How to incorporate FileTransferProgress in VBA

Hi @scooper77,

I am not able to connect FTP .NET library via Excel VBA.
Dim mySessionOptions As New WinSCPnet.SessionOptions
With mySessionOptions ' Getting error here ActiveX component can't create object

Can you please help me....
scooper77

How to incorporate FileTransferProgress in VBA

I am using the .NET library via Excel VBA to connect and download/upload to my remote server using the Webdav protocol. Everything works. I just need to have the download/upload progress status in the status bar in excel. Looked through some codes in VB and PowerShell regarding FileTransferProgress event/class, but can't seem to link the FileTransferProgress into VBA. Can anyone help me on this.

My download code is similar to this and it works great but without any download progress info:
Private Sub download(ByRef mySession As Session)
    ' Setup session options
    Dim mySessionOptions As New SessionOptions
    With mySessionOptions
       .Protocol = Protocol_Webdav
       .HostName = "abcd.com"
       .PortNumber = 443
       .UserName = "username"
       .Password = "password"
       .WebdavSecure = True
       .TlsClientCertificatePath = "path_to_key"
    End With
 
    ' Connect
    mySession.Open mySessionOptions
    NameFile = "name_of_file"
    RemotePath = "name_of_file"
    Dim transferResult As TransferOperationResult
    Set transferResult = mySession.GetFiles(RemotePath, NameFile, False)
   
    ' Throw on any error
    transferResult.check
     
    ' Display results
    Dim transfer As TransferEventArgs
    For Each transfer In transferResult.Transfers
        MsgBox "Downloaded"
    Next
End Sub