ftp upload

01/02/2010 - 13:39 von Peter Auinger | Report spam
Schönen Nachmittag zusammen

Ich habe nachstehenden Beitrag gefunden und unter A2007 ausprobiert
http://officeone.mvps.org/vba/ftp_upload_file.html
Habe auch den Verweis zu "Microsoft Internet Transfer Control " eingebunden
Aber irgendwas fehlt leider noch:
Beim Aufruf set FTP = New Inet kommt in der 16. Zeile die Fehlermeldung "
'Objekterstellung durch ActiveX-Komponente nicht möglich (Fehler 429)"

Vielen Dank im voraus!


Option Compare Database

Private Sub btn_upload_Click()

Call UploadFile(Me.ctl_HostName, Me.ctl_UserName, Me.ctl_Password,
Me.ctl_LocalFileName, Me.ctl_RemoteFileName)

End Sub

Function UploadFile(ByVal HostName As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal LocalFileName As String, _
ByVal RemoteFileName As String) As Boolean

Dim FTP As Inet
'Objekterstellung durch ActiveX-Komponente nicht möglich (Fehler 429)
Set FTP = New Inet
With FTP
.Protocol = icFTP
.RemoteHost = HostName
.UserName = UserName
.Password = Password
.Execute .URL, "Put " + LocalFileName + " " + RemoteFileName
Do While .StillExecuting
DoEvents
Loop
UploadFile = (.ResponseCode = 0)
End With
Set FTP = Nothing
End Function



__________ Hinweis von ESET NOD32 Antivirus, Signaturdatenbank-Version 4820 (20100130) __________

E-Mail wurde geprüft mit ESET NOD32 Antivirus.

http://www.eset.com
 

Lesen sie die antworten

#1 Jens Schilling
01/02/2010 - 13:49 | Warnen spam
Hallo, Peter

Peter Auinger wrote:
Ich habe nachstehenden Beitrag gefunden und unter A2007 ausprobiert
http://officeone.mvps.org/vba/ftp_upload_file.html
Habe auch den Verweis zu "Microsoft Internet Transfer Control "
eingebunden Aber irgendwas fehlt leider noch:
Beim Aufruf set FTP = New Inet kommt in der 16. Zeile die
Fehlermeldung " 'Objekterstellung durch ActiveX-Komponente nicht
möglich (Fehler 429)"



Schau mal, ob Dir die FAQ 7.9 Objekterstellung durch Active-X-Komponente
(www.donkarl.com?FAQ7.9) hilft...

Gruss
Jens

FAQ: http://www.donkarl.com

Ähnliche fragen