Office: (Office 2013) Dateidownload mehrere Dateien per FTP

Hallo.

Da ich anderweitig nicht fündig geworden bin, bitte ich euch um Hilfe.

Ich Nutze der API (Winnet) Funktion und unteren Aufruf Code, um von FTP Server eine ZIP Datei zu downloaden. Dies funktioniert auch problemlos.
Nun werden die Dateien nicht mehr gezippt zum Download bereitgestellt, sondern einzeln. Nun versuchte ich die Dateien wie in meinen Code angegeben einzutragen. Leider ohne Erfolg, Fehlermeldung: Datei existiert nicht!


Private Sub Ja_label_Click()
Dim strServer As String
Dim strBenutzer As String
Dim strPasswort As String
Dim strRemoteDateiname As String
Dim strLokalerDateipfad As String
Dim strStatusmeldung As String
Dim strRelRemotePfad As String

' FTP Anmeldedaten:
strServer = "xxxx.de"
strBenutzer = "Austausch"
strPasswort = "xxxxxxxxxx"
strRelRemotePfad = "/MB"
' strRemoteDateiname = "Datenbank-2020.zip"
' strLokalerDateipfad = "C:SERVICEDATENDatenbankUpdateDatenbank-2020.zip" (So funktioniert)
strRemoteDateiname = "File1.txt" & "File2.txt"
strLokalerDateipfad = "C:SERVICEDATENDatenbankUpdateFile1.txt" & _
"C:SERVICEDATENDatenbankUpdateFile2.txt"

DoCmd.OpenForm "WF_Progressbar1"
Set frmPB1 = Forms!WF_Progressbar1

If FTPLogin(strServer, strBenutzer, strPasswort, strRelRemotePfad) Then

If FTPDownload(strLokalerDateipfad, strRemoteDateiname) = True Then
MsgBox "Der Download war erfolgreich." & vbCrLf & " " & vbCrLf & _
"Bitte, die Datenbank schließen. Anschließend die Update Datei entzippen und die Dateien in das Arbeitsverzeichnis der Datenbank kopieren/ verschieben.", vbInformation
Else
MsgBox "Der Download war nicht erfolgreich."
End If


End If

Call FTPLogout

Wie müsste das Code für die Multiauswahl der Dateien sein?

Vielen Dank im Voraus für euere Hilfe.

Grüße
Brane

:)

 

Moin,

nach dieser Anweisung steht in strRemoteDateiname "File1.txtFile2.txt". Fehlermeldung stimmt.

 

Hallo Ralf.

Richtig!
Lösche ich die File2.txt, also ich trage nur eine Datei, dann funktioniert.

Mfg

 

Und was passiert, wenn Du zwischen die beiden Namen ein Leerzeichen einfügst?

ps: Hängt natürlich auch davon ab, was FTPDownload erwartet.

 

Du kannst die Dateien nur einzeln runterladen.

 

Danke für euere Antworten.

Da erscheint die Access Meldung: Fehler beim Kompilieren! Erwartet Anweisungsende.

Das ist weniger erfreulich. *rolleyes.gif*

Wie müsste ich es anstellen, dass ich kompletten Ordner herunterladen könnte? Das würde mir auch helfen.

Mfg
Brane

 

Hallo Brane,

im Prinzip genau so, wie man auch eine einzelne Datei mit Wininet herunter lädt. Dabei werden zunächst die Dateinamen mit FTPFindFirst und InternetFindNextFile ermittelt und dann einzeln heruntergeladen.

Alternativ habe ich letztens hier ein Beispiel mit WinSCP erstellt. Diese Library könnte man auch anstatt wininet in VBA verwenden.

Gruß Ulrich

 

Vielen Dank für die Antwort.

Mit dem Befehl werden meines Wissens die Dateien aufgelistet und das ist für mich nicht relevant. ich habe immer drei- vier Dateien, bei denen sich nur der Inhalt ändert und die will ich per FTP Download auf dem lokalen PC aktualisieren, oder den kompletten Ordner, in dem sich diese Dateien befinden.

Vielleicht hätte der eine oder andere eine Idee.
Danke schon mal im Voraus.

Grüße
Brane

 

Du solltest dein Wissen vertiefen. *wink.gif*
Schau dir einfach mal die Methoden von Winnet an.
Dann wirst du schon die richtige Methode finden.

 

Hallo Brane,

du solltest deine Fragestellung nochmal überdenken: entweder sind es nur 3 - 4 Dateien mit bekanntem Namen, welche du aktualisieren möchtest oder ein ganzer Ordner. Anforderungen während eine Problemlösung zu ändern ist nicht hilfreich.

Wieso sind diese beiden Wininet Funktionen für dich nicht relevant? Ohne diese beiden Befehle wirst du nicht auskommen, es sei denn, die Dateinamen sind bekannt und fest vorgegeben. Dann verstehe ich deine Fragestellung aber nicht, denn vier Dateien herunter zu laden dürfte nicht komplizierter sein als eine.

Wenn es um eine aktualisierung mit den neuesten Dateien geht, bietet sich das bereits erwähnte Beispiel mit WinSCP an.

Gruß Ulrich

 

Richtig, ihr habt’s recht.
Ich werde mich mal intensiver mit der Thematik Winnet befassen. Als Gelegenheit „Programmierer“ tut man sich halt schwerer, als einer der das intensiver betreibt oder dies von Grund auf gelernt hat.

Nochmals vielen Dank!

Gruß
Brane