VPF::Копирование папки с/на FTP-сервер.

Компоратор

Дата 30.3.2011, 07:01 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 16.4.2006
Где: Петропавловск-Кам чатский

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

Возможно ли копирование папки со всем содержимым на FTP-сервер, используя System.Net?
Или все-таки придется рекурсивно проходить содержимое и заливать индивидуально каждый файл/создавать папки?

mrbrooks

Дата 30.3.2011, 08:40 (ссылка)

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

Загрузка ...

трололомен

Профиль
Группа: Завсегдатай
Сообщений: 4259
Регистрация: 4.10.2006
Где: Дол Гулдур

Репутация: 17
Всего: 306

Компоратор, готового решения в BCL нет. так что все руками.

зы. при желании вы можете нагуглить массу бесплатных решений по данной тематики. уж чего - чего - а этого добра навалом.

wester

Дата 30.3.2011, 19:06 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 3
Всего: 13

http://forum.vingrad.ru/index.php?showtopi...t&p=2200887
вот уже обсуждал

Компоратор

Дата 21.4.2011, 06:42 (ссылка)

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

Загрузка ...

Использую рекурсивную процедуру для закачки на FTP каталога с данными, расположенного локально на машине:

Код


    Private Sub ToFtp(ByVal CopySource3 As String, ByVal CopyDest3 As String, ByVal cred3 As ICredentials)
        Dim pus As String = ""
        For Each f As String In Directory.GetFiles(CopySource3)
            Try
                Dim wc = New WebClient()
                wc.Credentials = cred3
                pus = IIf(Path.GetFileName(f.Substring(CopySource3.Length + 1)).StartsWith("\"), Path.GetFileName(f.Substring(CopySource3.Length + 1)), Path.GetFileName(f.Substring(CopySource3.Length)))
                Dim uri1 As New System.Uri(String.Format("{0}/{1}", Dest3, pus))
                wc.UploadFileAsync(uri1, f)
            Catch ex As Exception
                '
            End Try
        Next
        For Each d As String In Directory.GetDirectories(CopySource3)
            Dim newdir As String = ""
            Try
                pus = IIf(Path.GetFileName(d.Substring(CopySource3.Length + 1)).StartsWith("\"), Path.GetFileName(d.Substring(CopySource3.Length + 1)), Path.GetFileName(d.Substring(CopySource3.Length)))
                newdir = String.Format("{0}/{1}", Dest3, pus)
                Dim req = DirectCast(WebRequest.Create(newdir), FtpWebRequest)
                req.Credentials = cred3
                req.Method = WebRequestMethods.Ftp.MakeDirectory
                req.GetResponse()
            Catch ex As Exception
                '
            End Try

            ToFtp(d, newdir, cred3)
        Next
    End Sub

Через некоторое время, при попытке создать очередной каталог, req.GetResponse() вываливается в исключение "Запрос был прерван: Запрос отменен.". Что это может быть? Кто-нибудь может мне что-то подсказать?

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