Не подскажет ли кто-нибудь, какая ошибка может быть в нижепреведенной программе:
Sub slugebki()
Dim hConnection As Long, hOpen As Long, sOrgPath As String
hOpen = InternetOpen("API-Guide sample program", 1, vbNullString, vbNullString, 0)
hConnection = InternetConnect(hOpen, "ip-адрес", 21, "юзер", "пароль", 1, &H8000000, 1)
a = FtpGetFile(hConnection, "путь\100608_0628.arj", "c:\100608_0628.arj", False, 0, 1, 0)
Err = GetLastError()
InternetCloseHandle hConnection
InternetCloseHandle hOpen
End Sub
Соединение происходит, т.к. переменным hOpen и hConnection присваиваются значения, а файл не скачивается.

Если бы вы внимательно просмотрели код присланной программы, вы бы заметили, что программа содержит вызов функция GetLastError(), но данная функция возвращает нулевое значение.

a=False. Хотя имена файлов и путь для копирования указаны верно.

переименовала переменную так как вы указали.Все равно Е=о, а а=false