Forums Neueste Beiträge
 

bilder nach ftpupload nicht mehr lesbar

14/10/2008 - 10:19 von Patrick Wohlann | Report spam
Hallo NG,
folgendes Problem. Ich möchte Bilder auf unseren FTP-Server hochladen mit
folgendem code:

Public Function Transfer(lfile As String, ffile As String) As Boolean
Dim hCallback As Long
Dim intDummy
Dim result As Boolean

On Error GoTo err_transfer
If ffile <> "" Then
result = FtpPutFile(hConnection, lfile, ffile,
FTP_TRANSFER_TYPE_BINARY, 0)
If result = 0 Then MsgBox "Übertragungsfehler!"
End If
exit_transfer:
Exit Function

err_transfer:
MsgBox Err.Description
Resume exit_transfer

End Function


Das Funktionierte auch bisher, aber seit sich eine Webseite umgestellt hat,
von welcher ich de Bilder beziehe kommen die Bilder nicht mehr intakt an.
Wenn ich die Bilder lokal speichere ist alles noch in Ordnung, aber nach dem
upload wird die Bilddatei zwar im verzeichnis angezeigt, aber wenn ich drauf
zugreifen will (öffnen,umbenennen, löschen oder àhnliches) dann kommt die
Meldung "b8b22922c6.jpg: No such file or directory" ?!?versteh ich nicht!?!
Hat jemand ne Idee was da schief làuft, oder gibt es noch eine andere
Funktion ausser ftpputfile()?

Danke im Voraus!
Patrick
 

Lesen sie die antworten

#1 Mark Doerbandt
14/10/2008 - 11:01 | Warnen spam
Hallo, Patrick,

Patrick Wohlann:

Public Function Transfer(lfile As String, ffile As String) As Boolean
Dim hCallback As Long
Dim intDummy
Dim result As Boolean

On Error GoTo err_transfer
If ffile <> "" Then
result = FtpPutFile(hConnection, lfile, ffile,
FTP_TRANSFER_TYPE_BINARY, 0)
If result = 0 Then MsgBox "Übertragungsfehler!"
End If
exit_transfer:
Exit Function

err_transfer:
MsgBox Err.Description
Resume exit_transfer

End Function



wo ist denn FtpPutFile deklariert?

Das Funktionierte auch bisher, aber seit sich eine Webseite umgestellt hat,
von welcher ich de Bilder beziehe kommen die Bilder nicht mehr intakt an.



Was hat sich da genau umgestellt?


Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen