Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

FTP Transfer eines Ordners
Autor: ReinerG
Datum: 20.10.03 11:19
Hallo, ich habe die Aufgabe den gesamten Inhalt eines Ordners per ftp upzuloaden. Zuerst habe ich es mit dem Microsoft Inernet Transfer Control (SP4) probiert. Das funktioniert leider nicht. Dann habe ich Euren Tip "FTP FileUpload via WININET.DLL" gefunden und dies probiert. Leider funktioniert es nur teilweise. Manchmal hängt sich der Rechner auf, manchmal werden Dateien übertragen, aber dann maximal zwei. Kann mir jemand helfen, wie man das vielleicht auch anders lösen könnte, oder wo der Fehler liegt. Habe leider keine Erfahrung mit FTP. Hier der Code des Aufrufs. (Modul wie in Eurem Tip ist vorhanden) Sub senden2() Dim sRemoteHost As String Dim sLocalFile As String Dim sRemoteFile As String Dim nTransferMode As eTransferType Dim bResult As Boolean Dim vDatei As String Me.MousePointer = 11 sRemoteHost = "www.is.de" If Connect(sRemoteHost, vISBenutzer, vISPasswort) Then vDatei = Dir(Pfad.IS24) If vDatei <> "" Then sLocalFile = Pfad.IS24 & vDatei sRemoteFile = vDatei nTransferMode = FTP_TRANSFER_TYPE_BINARY bResult = FileUpload(sLocalFile, sRemoteFile, nTransferMode) End If Do While vDatei <> "" vDatei = Dir() If vDatei <> "" Then sLocalFile = Pfad.IS24 & vDatei sRemoteFile = vDatei nTransferMode = FTP_TRANSFER_TYPE_BINARY bResult = FileUpload(sLocalFile, sRemoteFile, nTransferMode) 'If Not bResult Then ' MsgBox "Fehler beim Upload der Datei " & vDatei 'End If End If Loop Disconnect End If Me.MousePointer = 0 MsgBox ("Übertragung beendet !") End Sub Vielen Dank schon mal im voraus ReinerG

FTP Transfer eines Ordners

559

ReinerG

20.10.03 11:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen