не могу подконнектиться по Ftp и скачать файл

  • Автор темы Andrew1981
  • Дата начала
A

Andrew1981

#1
Создал страницу на народе: www.myname.narod.ru .Закрнул туда каталоги для скачки.
Для того, чтобы скачать оттуда нужное по ftp протоколу написал следующий код:

adres="ftp.myname.narod.ru"
mylogin="myname"
mypassword=435432
filename="file.txt"

hINetSession = InternetOpen("program", 0, vbNullString, vbNullString, 0)
If hINetSession <= 0 Then a = MsgBox("ошибка создания соединения", vbOKCancel, " ")
hSession = InternetConnect(hINetSession, adres, "21", mylogin, mypassword, INTERNET_SERVICE_FTP, 0, 0)
If hSession <= 0 Then a = MsgBox("ошибка подключения", vbOKCancel, " ")
If FtpGetFile(hSession, filename, pachhtml + filename, False, 0, 1, 0) = False Then
MsgBox "Call to FtpGetFile Failed!"
End If
Call InternetCloseHandle(hSession)
Call InternetCloseHandle(hINetSession)

Не соединяеться-ошибка подключения.В чем моя ошибка?Пароль и логин для доступа верные.
 

Gamlet

Well-known member
08.01.2007
525
0
#2
в майпасворде добавь кавычки. А вообще поробуй на другом хостинге. Может у народа глюки.