Windows ftp.exe yerine winscp.com kullanılması

[Asri]

Merhaba,

VBA içinde ftp kullanmak istedim. windows un ftp programı kararsız çalıştı.
winscp.com programı komut satırı çalışmasında sorun çıkarmadı.

Bu tür bir çalışma olur ise bilginiz olsun

Portable sürümü için indirme linki.
Winscp.exe ve winscp.com aynı dizinde olmalı.

https://winscp.net/download/WinSCP-5.15.1-Portable.zip

Sub dosyaindir()
    adres = Sheets("Ayarlar").Range("B1")
    ftpklasor = Sheets("Ayarlar").Range("B2") & "/" & Sheets("Ayarlar").Range("B3")
    yerelyol = ActiveWorkbook.Path
    inecekdosya = "dosya.CSV"
   
    komut = localyol & "\winscp.com /ini=nul /command"
    komut = komut & " ""open ftp://kullanici:sifre@" & adres & """ "
    komut = komut & " ""cd /" & ftpklasor & """ "
    komut = komut & " ""lcd " & yerelyol & """ "
    komut = komut & " ""get " & inecekdosya & """ "
    komut = komut & " ""exit" & """ "

    Dim wsh As Object  
    Set wsh = CreateObject("WScript.Shell")
    wsh.Run komut, 1, True

End Sub