我尝试'.ics'
文件上传到活动的FTP服务器VB.NET FTP错误550
命名空间:
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()
:
明镜REMOTESERVER帽子einen Fehlerzurückgegeben(550)Datei nicht verfügbar(z.B. nicht gefunden奥德KEIN Zugriff)。系统贝 System.Net.FtpWebRequest.SyncRequestCallback(对象OBJ)贝 System.Net.FtpWebRequest.RequestCallback(对象OBJ)贝 System.Net.CommandStream.InvokeRequestCallback(对象OBJ)贝 系统.Net.CommandStream.Abort在DVisualStudio 2008CalendarCalendarCalendar(例外五)贝 System.Net.FtpWebRequest.FinishRequestStage(RequestStage阶段)贝 System.Net.FtpWebRequest.GetRequestStream()贝 Calendar.Calendar.Upload(字符串MitarbeiterNr)。 vbZeile 240.
对不起,这是德文,但我认为你们大多数人都可以阅读; - )
我抢走了代码从这里
会很高兴,如果有人可以帮助我解决这个问题很快=)
LightMonk