vba calling Winscp to connect and download files through SFTP

[i8890321]

Hi,

I am using a vba script, it uses winscp to connect the SFTP and download the files one by one.


This is the line i used in vba
====================================
strQuote = Chr(34)
strOpen = "open sftp://accw@host.com"
GetPath = "get ""folder/file1.doc"" ""C:\folder\file1.doc"""

Call Shell("C:\winscp\winscp.com /command " & strQuote & strOpen & strQuote & GetPath & " " & strQuote & "exit" & strQuote, vbNormalNoFocus)
=====================================
As i want to speed up all the things, i loop the above command for every files to be download.
E.G. I got 1k files on the remote side, I want to download 50 specific files only. My script will open 50 sessions (50 winscp windows and connections) which makes my computer hang.

If i just open 1 session (1 winscp window), it form a queue of 50 files and the speed is very slow.

can any one give me a better solution?

Sorry for my bad english and poor programming knowledge.

Thanks

 

[RickXL]

Hi,

Sorry, I am not an expert in ftp but I strongly suspect that the host server will impose a limit on how many files a given user can download at once. Do you know what that limit is?

It will probably work better if you base any code on that number and don't try to exceed it.

Some sites limit bandwidth as well, so even if you get several files downloading at the same time they may do so more slowly.