FTP voor visual basic

Status
Niet open voor verdere reacties.

machielv

Gebruiker
Lid geworden
20 jan 2012
Berichten
54
Hallo
Wie kan mij een advies geven voor een FTP programma die wat bestanden naar de site kan uploaden.

Ben geen ervaren persoon met VB gebruik nu stunnel maar heb daar steeds problemen mee.

Bij voorbaat dank.

Machiel
 
Dit is het FTP en CDO Mail gedeelte dat ik maakte voor een groter project.
Dit gebruik ik al heel lang maar is nog niet voor Office 64-bit.
Daar zou je voldoende aan moeten hebben.

De FTP code zit in de module mFTP.
Die kan je overal in het document aanroepen met:
Code:
FtpUpload("Locaal bestand", "Bestand op FTP server")
Uiteraard wel de gevraagde gegevens in het blad Instellingen invullen.

De oude Microsoft wininet.dll wordt gebruikt.
Deze ondersteund geen Secure FTP.
Daarvoor kan je het gratiis WinSCP gebruiken:
https://winscp.net/eng/index.php
Met stunnel heb ik geen ervaring.
 

Bijlagen

Laatst bewerkt:
Ikzelf raad ook WinSCP aan. Ideaal voor (S)FTP en SSH-sessies naar Linux servers.
 
Heb je een voorbeeld voor het gebruik van WinSCP in VBA?

Edit:
Niet meer nodig.
Het werkt al hier :)
 
Laatst bewerkt:
Fijn

Dank voor de snelle reactie kijk of ik eruit kan komen.

mvg.
Machiel
 
Voor een FTP-upload gebruik ik:

1. maak een script-bestand (G:\OF\snb_vba.ftp)
2. voer dit bestand uit in de Shell

Gebruik een array voor de variabele gegevens: server, gebruikersnaam, wachtwoord, folder op de server, en de volledige bestandsnaam van het te uploaden bestand. Vermijd spaties in deze variabele gegevens.
Bijv. sn = Split("server gebuikersnaam wachtwoord remotefolder bestand")

Code:
Sub M_snb()
  sn = Split("ftp.snb-vba.eu| gebruikersnaam| wachtwoord domains/snb-vba.eu/public_ftp G:\OF\adressen.xlsx")
    
  CreateObject("scripting.filesystemobject").CreateTextFile("G:\OF\snb_vba.ftp").write Replace("open " & sn(0) & sn(1) & sn(2) & "|binary|cd " & sn(3) & "|send " & sn(4) & "|quit", "|", vbCrLf)
  Shell "ftp -v -i -s:G:\OF\snb_vba.ftp"
End Sub
 
Kan prima.
Maar dan heb je geen secure FTP en geen foutafhandeling.
Dat laatste vond ik voor een project voor een klant toch wel belangrijk.
En binnenkort ga ik het omzetten naar WinSCP.
 

Bijlagen

Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan