Hallo,
nach dem Download einer Datei von einem FTP-Server soll diese in ein anderes Verzeichnis verschoben werden.
In Zeile 26 tritt dann folgender Fehlert auf:
"Der Remoteserver hat einen Fehler zurückgegeben: (550) Datei nicht verfügbar (z.B. nicht gefunden oder kein Zugriff)."
Die Pfadnamen passen beim Ausführen. Muss die "Download"-Verbindung erst geschlossen werden. Wenn ja, wie?
Danke im voraus!
nach dem Download einer Datei von einem FTP-Server soll diese in ein anderes Verzeichnis verschoben werden.
In Zeile 26 tritt dann folgender Fehlert auf:
"Der Remoteserver hat einen Fehler zurückgegeben: (550) Datei nicht verfügbar (z.B. nicht gefunden oder kein Zugriff)."
VB.NET-Quellcode
- ' Download starten
- Dim strSOURCE As String
- Dim strTARGET As String
- Dim wrDOWN = WebRequest.Create("ftp://meinserver.de/DOWN" & "/"c & "filename.txt")
- wrDOWN.Method = WebRequestMethods.Ftp.DownloadFile
- wrDOWN.Credentials = New NetworkCredential("Benutzer", "passwort")
- Dim dest = Path.Combine("C:\DOWNLOAD", "filename.xyz")
- Using respDOWN = wrDOWN.GetResponse(), strmResp = respDOWN.GetResponseStream,
- strmFile = New FileStream(dest, FileMode.Create)
- Dim buf(1023) As Byte
- Do
- Dim read = strmResp.Read(buf, 0, buf.Length)
- If read = 0 Then Exit Do
- strmFile.Write(buf, 0, read)
- Loop
- End Using
- ' Datei verschieben
- strSOURCE = Replace(Path.Combine("ftp://meinserver.de/DOWN", "filename.xyz"), "\", "/")
- strTARGET = Replace(Path.Combine("ftp://meinserver.de/DOWN", "ARCHIV", "filename.xyz"), "\", "/")
- ' Fehler bei folgendem Befehl:
- ' Der Remoteserver hat einen Fehler zurückgegeben: (550) Datei nicht verfügbar (z.B. nicht gefunden oder kein Zugriff).
- Dim wrRename As FtpWebRequest = CType(WebRequest.Create(strSOURCE), FtpWebRequest)
- wrRename.Credentials = New NetworkCredential("Benutzer", "passwort")
- wrRename.Method = WebRequestMethods.Ftp.Rename
- wrRename.RenameTo() = strTARGET
- Dim rResponse As FtpWebResponse
- rResponse = CType(wrRename.GetResponse, FtpWebResponse)
- Dim strStatusDesc As String = rResponse.StatusDescription
- Dim strStatusCode As FtpStatusCode = rResponse.StatusCode
- If strStatusCode <> FtpStatusCode.FileActionOK Then
- MsgBox("Rename fehlgeschlagen. Status = " & strStatusCode & " " & strStatusDesc)
- End If
Die Pfadnamen passen beim Ausführen. Muss die "Download"-Verbindung erst geschlossen werden. Wenn ja, wie?
Danke im voraus!