It is hard to believe that microsoft does not have SFTP built in.
Here is what I did as an interim solution
Make sure you reference at the top of you VB script
Imports System.IO
I use Putty's psftp which is a stand alone program
Program found here http://www.chiark.greenend.org.uk/~sgtatham/putty/download.html
I then write a BATCH file to the users temp files system and execute the batch script all in my vb code as follows...
Hope this helps someone! Only way around not having to load anything and have to pay big $$$ to SFTP a file, however the script is dependent on having Putty's psftp file in place.
Imports System.IO
Public Class Form1
Sub GetFile()
Dim ftpscript As Integer = FreeFile()
Dim tempscriptfile As String = My.Computer.FileSystem.GetTempFileName
Dim tempbatfile As String
Dim HostName As String = "username@hostname or IP address of SFTP server example: user@123.123.123.123"
Dim password As String = "password for your user"
FileOpen(ftpscript, tempscriptfile, OpenMode.Output)
' just use the same directory where you want to save your file for the lcd
PrintLine(ftpscript, "lcd ""c:\path\to\local\directory""")
PrintLine(ftpscript, "cd /remote/directory/")
PrintLine(ftpscript, "get filetoget.txt")
PrintLine(ftpscript, "bye")
FileClose(ftpscript)
tempbatfile = My.Computer.FileSystem.GetTempFileName
tempbatfile = Mid(tempbatfile, 1, Len(tempbatfile) - 4) & ".bat"
FileOpen(ftpscript, tempbatfile, OpenMode.Output)
' Enter the drive where your file will be loaded on the local drive.
PrintLine(ftpscript, "C:")
' Change to where you want to save the file on the local drive make sure it is writable by the end user
PrintLine(ftpscript, "CD ""c:\path\to\local\directory""")<br/>
PrintLine(ftpscript, """C:\path\to\your\psftp\program\psftp.exe"" " & HostName & " -pw " & password & " -b " & """" & tempscriptfile & """")
FileClose(ftpscript)
Shell(tempbatfile, AppWinStyle.MinimizedNoFocus, True)
Kill(tempbatfile)
Kill(tempscriptfile)
End Sub
End Class
SSH/SFTP Communications in C#
.