Beste Guus,
Met de links die jij meldde kan je geen bestanden mee downloaden.
Ik heb op Google wat gevonden echter moet je weer een ontwikkelaars omgeving hebben of zware installatie doen om eea voor elkaar te krijgen.
Een bestand dowloaden via FTP moet toch al eens uitgevonden zijn?
FTP uploaden heb ik wel maar downloaden juist niet.
Function DownloadFile(ByVal HostName As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal RemoteFileName As String, _
ByVal LocalFileName As String) As Boolean
Dim FTP As Inet
Set FTP = New Inet
With FTP
.Protocol = icFTP
.RemoteHost = HostName
.UserName = UserName
.Password = Password
.Execute .url, "Get " + RemoteFileName + " " + LocalFileName
Do While .StillExecuting
DoEvents
Loop
DownloadFile = (.ResponseCode = 0)
End With
Set FTP = Nothing
End Function
Deze code loopt vast op "Set FTP = New Inet"
Ik had ook de MSINET.OCX gerefereerd in mijn verwijzingen.
Het is zo jammer want deze code lijkt er op dat het niet al te ingewikkeld moet zijn.