VPF::Подсоеденится по ftp и залить файл, как?

alexburzak

Дата 25.6.2007, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 12.3.2007
Где: Hadera

Репутация: нет
Всего: 1

Задача: залить на свой ftp файл.
Иструменты: Microsoft Visual Studio 2005, VB.NET, виндоус-приложение
Написал:
Вызов-

Код


Upload("myFile.txt", "ftp://ftp.myftphost.ru/yyyyyyy/zzz/")

Сама функция-

Код


Private Sub Upload(ByVal fileName As String, ByVal uploadUrl As String)
Dim requestStream As Stream = Nothing
Dim fileStream As FileStream = Nothing
Dim uploadResponse As FtpWebResponse = Nothing
Try
Dim uploadRequest As FtpWebRequest = WebRequest.Create(uploadUrl)
uploadRequest.Method = WebRequestMethods.Ftp.UploadFile
uploadRequest.Credentials = New NetworkCredential("myuser", "mypass")
' UploadFile is not supported through an Http proxy
' so we disable the proxy for this request.
uploadRequest.Proxy = Nothing
requestStream = uploadRequest.GetRequestStream()
fileStream = File.Open(fileName, FileMode.Open)
Dim buffer(1024) As Byte
Dim bytesRead As Integer
While True
bytesRead = fileStream.Read(buffer, 0, buffer.Length)
If bytesRead = 0 Then
Exit While
End If
requestStream.Write(buffer, 0, bytesRead)
End While
' The request stream must be closed before getting the response.
requestStream.Close()
uploadResponse = uploadRequest.GetResponse()
Console.WriteLine("Upload complete.")
Catch ex As UriFormatException
Console.WriteLine(ex.Message)
Catch ex As IOException
Console.WriteLine(ex.Message)
Catch ex As WebException
Console.WriteLine(ex.Message)
Finally
If uploadResponse IsNot Nothing Then
uploadResponse.Close()
End If
If fileStream IsNot Nothing Then
fileStream.Close()
End If
If requestStream IsNot Nothing Then
requestStream.Close()
End If
End Try
End Sub

На "requestStream = uploadRequest.GetRequestStream()" ругается вот так:
"
The requested URI is invalid for this FTP command.
"
Плиз скажите, где я туплю? Если у кого есть рабочий код заливки файла на ftp, то тоже буду рад(VB.NET).

--------------------

HomePage :: Продвижение сайтов, сопровождение сайта малым и средним бизнесам в интернете

alexburzak

Дата 26.6.2007, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 12.3.2007
Где: Hadera

Репутация: нет
Всего: 1

В любом случаии я решил сделать вот так: http://www.enterprisedt.com/index.html
В результате у меня получился код гораздо проще и "читабельней":
Dim ftpConnectionToLogicPC As New FTPConnection()
ftpConnectionToLogicPC.ServerAddress = "ftp.myhost.ru"
ftpConnectionToLogicPC.UserName = "myuser"
ftpConnectionToLogicPC.Password = "mypass"
ftpConnectionToLogicPC.Connect()
ftpConnectionToLogicPC.ChangeWorkingDirectory("xxx x")
ftpConnectionToLogicPC.ChangeWorkingDirectory("eee e")
ftpConnectionToLogicPC.UploadFile("wwww.html", "qqqq.html")
ftpConnectionToLogicPC.Close()
Для начинающих: незабудьте подключить импорты и dll'ку
Спасибо всем, вопрос решен.

--------------------

HomePage :: Продвижение сайтов, сопровождение сайта малым и средним бизнесам в интернете

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »