سلام دوستان وقتتون بخیر من جواب رو بدست آوردم و در اینجا به صورت تصویری قرار میدم تا شاید اگر کسی نیاز داشت بتونه استفاده کنه
اول از همه نرم افزار WinSCP نصب کنید
بعد به پروژتون dll مربوطه رو وارد کنید به شکل زیر
و Imports WinSCP اضافه کنید به پروژتون مثل شکل زیر
1.jpg
بعد با نرم افزار WinSCP یکبار به سرورتون وصل بشین
1.jpg
و از قسمت پایین سمت راست دو بار روی قفل کلیک کنید تا کادر مربوطه باز بشه سپس key کپی کنید
حالا میرسه به قسمت کد ها که فکر نمیکنم نیاز به توضیح داشته باشه
Dim sessionOptions As New SessionOptions
With sessionOptions
.Protocol = Protocol.Sftp
.HostName = "آدرس سرور"
.UserName = "نام کاربری"
.Password = "کلمه عبور"
.SshHostKeyFingerprint = "key که ذخیره کردین"
End With
Using session As New Session
session.Open(sessionOptions)
Dim transferOptions As New TransferOptions
transferOptions.TransferMode = TransferMode.Binary
Dim transferResult As TransferOperationResult
transferResult =
session.GetFiles("آدرس فولدر مبدا که همون sftp", "آدرس مقصد", False, transferOptions)
transferResult.Check()
For Each transfer In transferResult.Transfers
Console.WriteLine("Download of {0} succeeded", transfer.FileName)
Next
End Using
MsgBox("فایل مورد نظر با موفقیت کپی شد", MsgBoxStyle.Information, "موفقیت عملیات")