Достать файл по FTP

[Debugger]

Есть некий файл. Он лежит на ftp. Его url: ftp://file:123@ftp.narod.ru/myfilekotoryinododostat.txt (например)
Как его достать? А потом изменить и перезаписть?

[Gmp]

Скачать, изменить, залить обратно.
Inet Control

[Debugger]

Спасибо. Только я не знаю как им пользоваться. Но научусь...

Уже научился.

А как сложить файл? Есть C:\txt его надо в ftp://eto:primer@ftp.narod.ru. Как?

[tyomitch]

Так же, как скачать, только методом PUT вместо GET.

[Debugger]

Код: Выделить всё


Private Sub Form_Load()
Dim StrString$
StrString$ = i.OpenURL
Open "c:/temp.txt" For Output As #1
Print #1, StrString$
End Sub

И что чем надо заменять?
Open "c:/temp.txt" For Outget As #1?

[tyomitch]

Во-первых, твой чудо-код добавляет в конец файла лишний перевод строки.
Во-вторых, вместо OpenURL юзай Execute. Тогда писать в файл самому вообще не придётся.

[Debugger]

i.Execute i.URL, "PUT", "123321 проверка проверка"
Мммм.. Так? По FTP?

[tyomitch]

Не так. Справку по MsInet открой и прочитай, как надо.

[Debugger]

Можно линк?

[DirectXManiac]

Вроде в MSDN есть...
ЗЫ. Если не прав исправте...

[GSerg]

http://msdn.microsoft.com/library/?url= ... frame=true

[XPAHuTEJIb]

у меня вопрос:
а если есть папка на фтп, и надо отследить появление в этой папке файла. Т.е. папка пустая, как только файл появляется, его скачиваем.

[alibek]

Подключаешься, делаешь ls, смотришь результаты, действуешь, отключаешься.

[teCa]

Пдскажите как слить все содержимое дериктории с фтп?

GET упорно не хочет качать *.*, что делать?

[Tarik]

Пдскажите как слить все содержимое дериктории с фтп?

GET упорно не хочет качать *.*, что делать?

Получать список файлов и качать по-очереди.

[teCa]

Т.е. алгаритм примерно такой?

Пишем список файлов в массив и патом проходимся гетом по всему массиву?

[Tarik]

Да.

[teCa]

А как снять список папки?В IMTC есть DIR, в MSDN описывается как DIR file1 и все, чет не выходит так((

Код: Выделить всё

Private Sub CmdDown_Click()
    Dim strDirFiles As String
    Me.Cls
        Inet1.Protocol = icFTP
        Inet1.UserName = "anonymous"
        Inet1.Password = "teca@mail.ru"
        Inet1.Execute "84.23.32.4:2021", "pwd"
        While Inet1.StillExecuting
            DoEvents
            LblUpStatus.Caption = "Ïîäêëþ÷åíèå ê ñåðâåðó..."
        Wend
        Inet1.Execute , "DIR upload/skins/ Я идиот! Убейте меня, кто-нибудь!?"
        While Inet1.StillExecuting
            DoEvents
        Wend
'        strFileDown = "GET car.jpg " & strDirName & "car.jpg"
'        Inet1.Execute , """ & strFileDown & """
'        While Inet1.StillExecuting
'            DoEvents
'            LblUpStatus.Caption = "Çàãðóçêà ôàéëîâ..."
'            Debug.Print strFileDown
'        Wend
        Inet1.Execute , "close"
        LblUpStatus.Caption = "Ãîòîâî!"
        MsgBox strDirFiles

[tyomitch]

покажи код, который не работает, либо жди пришествия телепатов

[teCa]

А в массив сражу можно писать?

[tyomitch]

Split тебе в руки

[teCa]

Split'ом это понятно, но вот что делить?Как список та содержимого получить?

[tyomitch]

А ещё говорил, в MSDN смотрел...
Если бы на самом деле смотрел, то увидел бы там надпись:

Use the GetChunk method to return the directory data.