Ik zit nog steeds te ploeteren om bestanden te downloaden via ftp.
Je zou denken dat dit wiel allang is uitgevonden echter is het mij nog niet gelukt.
Onderstaande code gaat verkeerd aangezien de OCX kennelijk niet is aangemeld.
Heb het in mijn verwijzingen aangevinkt.
Bij Set FTP = New Inet gaat het fout.
Zag ergens op een website dat je de ocx op je form moest plaatsen maar ook dat is mij niet gegund want deze werd geweigerd.
Wie o wie kan mij helpen met een ftp script waar ik gewoon bestanden kan downloaden.
Bestanden ftp kan ik weer wel, niet met onderstaande code maar met een keurige nette script alleen is deze gemaakt voor het oploaden en niet voor het downloaden.
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
Je zou denken dat dit wiel allang is uitgevonden echter is het mij nog niet gelukt.
Onderstaande code gaat verkeerd aangezien de OCX kennelijk niet is aangemeld.
Heb het in mijn verwijzingen aangevinkt.
Bij Set FTP = New Inet gaat het fout.
Zag ergens op een website dat je de ocx op je form moest plaatsen maar ook dat is mij niet gegund want deze werd geweigerd.
Wie o wie kan mij helpen met een ftp script waar ik gewoon bestanden kan downloaden.
Bestanden ftp kan ik weer wel, niet met onderstaande code maar met een keurige nette script alleen is deze gemaakt voor het oploaden en niet voor het downloaden.
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