Upload de fichier via FTP - Serveur a renvoyé l'erreur (550) Fichier est indisponible, impossible de trouver le fichier

Je suis en train de télécharger un fichier via FTP à partir de mon ordinateur local vers un serveur FTP, qui est aussi sur mon ordinateur en local pour le moment. J'ai des sous je vais appeler:

    Public Sub UploadFTPFile(ByVal ftpservername, ByVal fullfilepath, ByVal filename, ByVal username, ByVal password)

    Dim clsRequest As System.Net.FtpWebRequest = _
    DirectCast(System.Net.WebRequest.Create("ftp://" & ftpservername & "/" & filename), System.Net.FtpWebRequest)
    clsRequest.Credentials = New System.Net.NetworkCredential(username, password)
    clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile

    clsRequest.KeepAlive = False

    ' read in file...
    Dim bFile() As Byte = System.IO.File.ReadAllBytes(fullfilepath)

    ' upload file...
    Dim clsStream As System.IO.Stream = _
        clsRequest.GetRequestStream()
    clsStream.Write(bFile, 0, bFile.Length)
    clsStream.Close()
    clsStream.Dispose()
End Sub

Lors de l'appel de sous, je fais comme ça:

UploadFTPFile("192.168.1.3/Temp", selectedSoundFileLong, OpenFileDialog.SafeFileName, "", "")

En d'autres termes, dans le Sous, cette chaîne:

DirectCast(System.Net.WebRequest.Create("ftp://" & ftpservername & "/" & filename), System.Net.FtpWebRequest)

crée la suivante:

    DirectCast(System.Net.WebRequest.Create("ftp://192.168.1.3/Temp/test.mp3"), System.Net.FtpWebRequest)

Et à cette ligne dans le sub:

        Dim clsStream As System.IO.Stream = _
        clsRequest.GetRequestStream()

Cette erreur se produit:

The remote server returned an error: (550) File unavailable

Ce qui pourrait être la cause de cela?
Je fais tourner un Serveur FTP à l'aide de Golder Serveur FTP, ce qui est un freeware.
Je pense qu'il est configuré correctement, car la connexion au Serveur FTP en utilisant la même chaîne comme ci-dessus à l'aide de l'Explorateur Windows fonctionne très bien.

InformationsquelleAutor Kenny Bones | 2009-10-31
  1. 2

    êtes-vous sûr qu'il n'y est pas d'espace blanc supplémentaire dans le webRequest chaîne? Je crois que vous obtenez cette erreur si la chaîne est arrivé d'être comme "ftp://192.168.1.3/ Temp/test.mp3" Aussi, assurez-vous que vous avez les bons droits d'écriture sur le serveur. En outre, assurez-vous de fichier, c'est de tester.mp3 et pas de test.MP3.

    • Je n'ai pas de ny espaces dans le nom du fichier à tous. Les privilèges d'écriture pour le serveur a été la solution 🙂
    InformationsquelleAutor northpole
  2. 2

    Essayez de la tourner la UsePassive de la propriété. Le contrôle et l'utilisation des données les différents ports FTP, il est possible que vous obtenez par le biais de sur le port de contrôle, mais bloqué en quelque sorte sur le port de données.

    • Merci, j'ai essayé et il semblait faire l'affaire 🙂 Même si, il ne travaille pas seul, j'avais besoin de définir certains paramètres sur le Serveur FTP pour pouvoir autoriser le trafic entrant. Fonctionne maintenant, merci! 🙂
    • Btw, une idée de comment je peux avoir une barre de progression affiche la progression?
    InformationsquelleAutor robertc
  3. 0

    550 est un Système.Net.FtpWebRequest code d'erreur de connexion.

    Aussi vous n'avez pas construit votre FTP correctement découvrez mon FTP catégorie: Son assez simple.

    Public Class FTP
'-------------------------[BroCode]--------------------------
'----------------------------FTP-----------------------------
Private _credentials As System.Net.NetworkCredential
Sub New(ByVal _FTPUser As String, ByVal _FTPPass As String)
setCredentials(_FTPUser, _FTPPass)
End Sub
Public Sub UploadFile(ByVal _FileName As String, ByVal _UploadPath As String)
Dim _FileInfo As New System.IO.FileInfo(_FileName)
Dim _FtpWebRequest As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(New Uri(_UploadPath)), System.Net.FtpWebRequest)
_FtpWebRequest.Credentials = _credentials
_FtpWebRequest.KeepAlive = False
_FtpWebRequest.Timeout = 20000
_FtpWebRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
_FtpWebRequest.UseBinary = True
_FtpWebRequest.ContentLength = _FileInfo.Length
Dim buffLength As Integer = 2048
Dim buff(buffLength - 1) As Byte
Dim _FileStream As System.IO.FileStream = _FileInfo.OpenRead()
Try
Dim _Stream As System.IO.Stream = _FtpWebRequest.GetRequestStream()
Dim contentLen As Integer = _FileStream.Read(buff, 0, buffLength)
Do While contentLen <> 0
_Stream.Write(buff, 0, contentLen)
contentLen = _FileStream.Read(buff, 0, buffLength)
Loop
_Stream.Close()
_Stream.Dispose()
_FileStream.Close()
_FileStream.Dispose()
Catch ex As Exception
MessageBox.Show(ex.Message, "Upload Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub DownloadFile(ByVal _FileName As String, ByVal _ftpDownloadPath As String)
Try
Dim _request As System.Net.FtpWebRequest = System.Net.WebRequest.Create(_ftpDownloadPath)
_request.KeepAlive = False
_request.Method = System.Net.WebRequestMethods.Ftp.DownloadFile
_request.Credentials = _credentials
Dim _response As System.Net.FtpWebResponse = _request.GetResponse()
Dim responseStream As System.IO.Stream = _response.GetResponseStream()
Dim fs As New System.IO.FileStream(_FileName, System.IO.FileMode.Create)
responseStream.CopyTo(fs)
responseStream.Close()
_response.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Download Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Function GetDirectory(ByVal _ftpPath As String) As List(Of String)
Dim ret As New List(Of String)
Try
Dim _request As System.Net.FtpWebRequest = System.Net.WebRequest.Create(_ftpPath)
_request.KeepAlive = False
_request.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
_request.Credentials = _credentials
Dim _response As System.Net.FtpWebResponse = _request.GetResponse()
Dim responseStream As System.IO.Stream = _response.GetResponseStream()
Dim _reader As System.IO.StreamReader = New System.IO.StreamReader(responseStream)
Dim FileData As String = _reader.ReadToEnd
Dim Lines() As String = FileData.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
For Each l As String In Lines
ret.Add(l)
Next
_reader.Close()
_response.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Directory Fetch Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Return ret
End Function
Private Sub setCredentials(ByVal _FTPUser As String, ByVal _FTPPass As String)
_credentials = New System.Net.NetworkCredential(_FTPUser, _FTPPass)
End Sub
End Class

    Pour initialiser:

    Dim ftp As New FORM.FTP("username", "password")
ftp.UploadFile("c:\file.jpeg", "ftp://domain/file.jpeg")
ftp.DownloadFile("c:\file.jpeg", "ftp://ftp://domain/file.jpeg")
Dim directory As List(Of String) = ftp.GetDirectory("ftp://ftp.domain.net/")
ListBox1.Items.Clear()
For Each item As String In directory
ListBox1.Items.Add(item)
Next
    InformationsquelleAutor THE AMAZING