Страница: 1 |
Страница: 1 |
Вопрос: забрать файлы по FTP?
Добавлено: 18.10.05 18:42
Автор вопроса:
artist
Такая проблема
Есть программа по которой я связываюсь с др. компом по ftp.
Три окна: Ip , Login, Password. Заполнил – логинюсь – в четвертом окне вижу необходимые мне данные, выглядят так:
-rwxrwxrwx 1 abc cde 1000018 Sep 30 08:15 log0.csv
-rwxrwxrwx 1 abc cde 181273 Sep 30 09:15 log0.csv
Создаю Баттон для копирования этих данных
Теперь мне нужно эти данные скопировать к себе, допустим на С:
Как дальше, подскажите пожалуйста ?
Код:
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim ls As Indy.Sockets.TIdStringListFCL = New Indy.Sockets.TIdStringListFCL
FTPConnection = New Indy.Sockets.FTP
Me.FTPConnection.Host = Me.txtFTPAddress.Text
Me.FTPConnection.Username = Me.txtUserName.Text
Me.FTPConnection.Password = Me.txtPassword.Text
Me.FTPConnection.Port = 21
Me.FTPConnection.Passive = True
Try
Me.FTPConnection.Connect()
Me.FTPConnection.List(ls, "./Data/*.csv", True)
For Each file As String In ls
Me.lstServerDirectoryData.Items.Add(file)
Next
Catch ex As Exception
StatusBar1.Text = ex.Message
Exit Sub
End Try
End Sub
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа: K&M
ICQ: 225442067
Вопросов: 20
Ответов: 170
Профиль | | #1
Добавлено: 19.10.05 15:26
Покажи че это за класс, у меня такого нету даже
Номер ответа: 2
Автор ответа: artist
Вопросов: 6
Ответов: 6
Профиль | | #2
Добавлено: 19.10.05 18:46
(http://www.indyproject.org)
Номер ответа: 3
Автор ответа: Агент Смит
ICQ: 147404128
Вопросов: 12
Ответов: 128
Web-сайт:
Профиль | | #3
Добавлено: 27.10.05 21:18
Возьми вот здесь =8)
http://contest2005.gotdotnet.ru/Request/Tools/UtilitiesLib/163026.aspx