Я пытаюсь загрузить '.ics'
файлов на FTP-сервер активногоVB.NET FTP Ошибка 550
Namespaces:
Imports System
Imports System.IO
Imports System.Data.OleDb
Imports System.Collections
Imports Microsoft.VisualBasic
Imports System.Net
Imports System.Text
Код:
'Create a FTP Request Object and Specfiy a Complete Path
Dim reqObj As FtpWebRequest = WebRequest.Create(Ziel + "Calendar/" + MitarbeiterNr + ".ics")
reqObj.Method = WebRequestMethods.Ftp.UploadFile
reqObj.UsePassive = False
reqObj.Credentials = New NetworkCredential(User, Password)
reqObj.Proxy = Nothing
reqObj.KeepAlive = False
reqObj.UseBinary = False
reqObj.Timeout = 5000
Dim sourceStream As FileStream = File.OpenRead(AppPath + "Ablage\" + MitarbeiterNr + "\" + MitarbeiterNr + ".ics") ' store file in buffer
Dim buffer(Convert.ToInt32(sourceStream.Length)) As Byte
sourceStream.Read(buffer, 0, buffer.Length)
sourceStream.Close()
reqObj.ContentLength = buffer.Length
'Dim objUTF8 As New UTF8Encoding()
'lblMsg.Text &= objUTF8.GetString(buffer)
'Upload File and set its object to nothing
Dim requestStream As System.IO.Stream
Try
requestStream = reqObj.GetRequestStream() 'times out here
requestStream.Write(buffer, 0, buffer.Length)
requestStream.Close()
Catch ex As Exception
Debug.printMeldung(ex.Message & ex.Source & ex.StackTrace)
End Try
reqObj = Nothing
Использованный Пользователь имеет необходимые права Письмо и т.д. URI выглядит как
ftp://Serveradress/Calendar/filename.ics
Вот сообщение об ошибке я получаю от requestStrem = reqObj.GetRequestStream()
:
Der удаленный_сервер Шляпа Einen Fehler zurückgegeben (550) Datei Nicht verfügbar (z.B. Nicht gefunden Одер Kein Zugriff) .System бей System.Net.FtpWebRequest.SyncRequestCallback (объект Object) бей System.Net.FtpWebRequest.RequestCallback (OBJ Object) бей System.Net.CommandStream.InvokeRequestCallback (OBJ Object) бей системы .Net.CommandStream.Abort (Исключение е) Bei System.Net.FtpWebRequest.FinishRequestStage (стадии) RequestStage бей System.Net.FtpWebRequest.GetRequestStream() бей Calendar.Calendar.Upload (String MitarbeiterNr) в DVisualStudio 2008CalendarCalendarCalendar. vbZeile 240.
Извините, что это на немецком языке, но я думаю, что большинство из вас может это прочитать; -)
Я выхватила код здесь
Был бы рад, если кто-то помогает мне решить проблему в ближайшее время =)
LightMonk
проверка