Transfer rates

Advertisement

jmsmny
Joined:
Posts:
3

Transfer rates

Sending multiple 20meg pdf files. Sent 9 files out of 36 in 3 hours. Trying to send the rest over a cable modem, even slower. Is there someway to change the script to increase the speed?

Sub BuildScript ()
fromFolder = PrintQueuePath
'build input file for ftp command
sFTPScript = sFTPScript & "option echo on" & vbCRLF
sFTPScript = sFTPScript & "option batch on" & vbCRLF
sFTPScript = sFTPScript & "option confirm off"& vbCrLf
sFTPScript = sFTPScript & "option transfer binary" & vbCrLf
sFTPScript = sFTPScript & "open sftp://" & "XX" & ":" & "XX" & "@" & "XX.XX.XXX.XXX" & " -privatekey=D:\Spool\VBControl\Policy_FTP\XXX_XXXX.ppk" & vbCrLf
sFTPScript = sFTPScript & "cd /Policies" & vbCrLf

sFTPScript = sFTPScript & "put " & fromFolder & "\*.pdf" & vbCRLF

sFTPScript = sFTPScript & "close" & vbCrLf
sFTPScript = sFTPScript & "exit" & vbCrLf
Set oFTPScript = oFTPScriptFSO.CreateTextFile(sFTPTempFile, True)
oFTPScript.WriteLine(sFTPScript)
oFTPScript.Close
Set oFTPScript = Nothing

End Sub



Sub SendFile()

sCmd = """C:\Program Files\WinSCP\WinSCP.com"" -script=" & sFTPTempFile

End Sub

Reply with quote

Advertisement

Advertisement

You can post new topics in this forum